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ЗЕҢ ЕМӨЕТО ΓΙΑ РС!!! 
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ж Χωρίς manual: Dr.DraW! 
ж Αυτόματοι χαρακτήρες! 
x Read/Write sector... 

ж Basic: Γύρω από ra graphics... 
x Πακέτο στατιστικής 


ж CPC Programs Area: 
Laser, Mirror, Λαθύρινδος, 
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| Amstrad 


То πρώτο επῆηνικό ανεξάρτητο ne- 
ριοδικό αποκβειστικά για τους υπο- 


ΠΕΡΙΕΧΟΜΕΝΑ — Λογιστές Amstrad CPC-PCW-PC. To nE- 

5 ριοδικό <H ΕΛβηνική πῃευρά του AM- 

Σημείωμα σύνταξης ᾽ strad» Και Οι εκδόσεις ΑΝΑΔΡΑΣΗ δεν 

H πλευρά των ειδήσεων έχουν каша απολύτως σχέση µε την 

Πού θα βρείτε τι Amstrad Plc ήτην αντιπροσωπεία της 
Χωρίς manual | στην Еййаба «Amstrad Hellas». . 

Ανάπτυξη προγραμμάτων «Н ΕΛΒηνική πβευράτου Amstrad» 


(c) 1987 ΑΝΑΔΡΑΣΗ. 

<H Εββηνική πῆευρά των Personal 
Computers> (c) 1987 ΑΝΑΔΡΑΣΗ. 
Διεύθυνση: Μπόταση 9, Εξάρχεια, 
106 82, τηῆ. 3610039 
Διεύθυνση Βορείου Εββάδος: 
Μοναστηρίου 41 тпй. 031/525803. 
Διευθυντής Σύνταξης-Υπεύθυνος 
σύμφωνα µε το νόµο: 
Νίκος Γεωργιάδης 
Ιδιοκτησία: ΕΚΔΟΣΕΙΣ ΑΝΑΔΡΑΣΗ О.Е. 
(FEEDBACK PUBLICATIONS) 
Εκδότες: Σστέβιος Αγγεβής, Νίκος TE- 
ωργιάδης, Σωτήρης Σταυρόπουβος 
Υπεύθυνος διαφημίσεων: 


Ταξινόμηση προγραμμάτων 
Πανεπιστήμιο-θέματα 


PC Programs area Κώστας Καραχάϑιος (rnñ. 3610039) 
FORTRAN i Καθβιτεχνική επιµέβεια: 
Publick domain στέβιος Βάζος 
PASCAL | Οικονομική Διεύθυνση: 
Στα σύνορα του Е.П.Т.А Σωτήρης Σταυρόπουβος 
Αλληλογραφία Διεκπεραίωση-Διανομή σε I 
K ЖА ; computer shop: Κώστας Γεωργιάδης 
ριτική - βιβλίων saq 2 ; 
CP/M-GSX Σκίτσα: Αντώνης Παπαδόπουβος 
Ç Μοντάζ-Φωτοστοιχειοθεσία- 

Διαχωρισμοί: 

Βιθβιοσυνεργατική ΣΥΝ.Π.Ε. 
ΟΡΟ Programs area Εκτύπωση: Πέτρος Мпарыппс, τηῇ. 
Adrentures 5247103-5240154 


Βιθϑιοδεσία: Καθαδίας Σπύρος 
Διάθεση-Διανομή-(Αθήνα-Επαρχία- 
Κύπρο): Κεντρικό Πρακτορείο Ημερή- 
σιου ка! περιοδικού Τύπου (3211069) 
παθαιά τεύχη: Εκδόσεις Ανάδραση 
Μπόταση 9, 6ος όροφος, Βιθβιοπω- 
Πείο Παπασωτηρίου, Στουρνάρα 23, 
ТПА. 2645158, θιθΏιοπωβείο Κθειδά- 
ριθµος, Μπόταση 5, 2601076, Compu- 
ter shop Κουνάνη, Στουρνάρα 20 και 
Ζαΐμη ТПА. 3646725 και από τα nepi- 
ntepa тои Г. Μαρκουπάκη, Πατησίων 
ка! Στουρνάρα 51 каг TOU A. Μπούρα, 
Πατησίων και Στουρνάρα, απέναντι 
από то Ποβυτεχνείο. 


Συντάκτες - Συνεργάτες: 
Φοίθος ΒιΠανάκης, Μίῆτος Μωραίτης, Міхайпс Μπεβιθανάκης, 
Μανώβης Γκιμίσπς, Γιώργος Πάπαρης, Χρήστος Коутёййпс, 


Χρήστος Πίγκας, Δημήτρης Λαμπαδίτης, Φρίξος Κοκκώνης, МІ- Για Συνδρομές και Δισκέττες: Мпб- 
хайпс Παγανόπουβος, Δημήτρης Μαυρόπουθος, ҒАМ5ОЕТ, Fl- ταση 9, Τ.Κ. 106 82, Εξάρχεια 
ΚΕΣΟΕΤ, Фійіппос̧ Βακαβάκης, Νίκος Λασκαρίδης, Γιάννης Na- Απαγορεύεται: H αναδημοσίευση ú- 
ζαρζῆς, Addie ΑΠοσκόφης, Νίκος Νασούφπς, Δημήτρης Μισού- ñnc µε οποιοδήποτε τρόπο ή µέσο 
ρας, Βαρθαβίτης Γιώργος, Νίκος Χαῆκός, Δημήτρης σταθόπου- χωρίςτην γραπτή άδεια των εκδοτών. 
Λος, Γρηγόρης Σουρµεβάκης. Απόυεις συντακτών ή αναγνωτών δεν 
«Тһе Greek side ΟΕ Amstrad»: Is published by: είναι πάντα και απόυεις του αρχισυν- 
ΑΝΑΏΡΑΣΙ, Botasi 9, Exarchia, 106 82, Athens, GREECE. τάκτη ή της εκδότριας εταιρίας. 
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Από τον επόμενο μήνα και κάδε μήνα 
το πρώτο περιοδικό την πρώτη του μήνα!!! 


ος 
// 


ΤΙ κοινό έχουν 7.500 αναγνώστες; 


Είναι χρήστες των υπολογιστών AMSTRAD ή PC Compatible που χρησιμοποιούν τον υπολογι- 
στή τους για επαγγελματικούς, εκπαιδευτικούς, και γιατί όχι — στον ελεύθερο χρόνο τους — 
για ψυχαγωγικούς σκοπούς. Είναι μαθητές, φοιτητές, εκπαιδευτικοί, επαγγελµατίε ή απλά «ερα- 
στές» της προόδου... 

Πιστεύουν στην πληροφορική. την εξερευνούν και την μαθαίνουν μέρα µε τη μέρα. πειραματί- 
ζονται расї της και ανακαλύπτουν τα μυστικά της. 

Στα σπίτια τους σαν µέσο εκπαίδευσης, πρόσφατα σαν µέσο επικοινωνίας µε άλλους χρήστες 
ή βάσεις δεδοµένων, στη διασκέδασή τους, στις εργασίες στο σχολείο ή όπως αλλιώς φαντά- 
ζεστε... 

Στο γραφείο είναι ο πιστός τους σύντροφος. Στην επεξεργασία κειµένου, στην αρχειοθέτηση, 
στην στατιστική, ακόµη και στην οικονομική πρόβλεψη. 

Στα σχολεία, στα Πανεπιστήμια, στις σχολές Προγραμματισμού, χρησιμοποιούν τον υπολογι- 
στή σαν εκπαιδευτικό µέσο, σαν εργαστηριακό εργαλείο. Μαθαίνουν και δημιουργούν το αύριο. 
Το ελληνικό αύριο. 

Πιστεύουν σε κάτι καλύτερο, διαφορετικό. Δημιουργούν µια επανάσταση. Μια επανάσταση που 
ο δημόσιος και ο ιδιωτικός τοµέας της χώρας δεν µπορεί παρά να ακολουθήσει µε όλο και πιο 
γρήγορους ρυθμούς, για να μπορέσει να ανταποκριθεί στις απαιτήσεις των καιρών. 

Εμείς, από την πλευρά µας — την ελληνική πλευρά — θα παρέχουμε ότι καλύτερο μπορούμε 
о” όλους αυτούς που ζουν στον παλμό της πληροφορικής για ένα απλό λόγο: ανήκουµε κι εμείς 
о” αυτήν την κατηγορία, είµαστε κι εμείς χρήστες και καταλαβαίνουμε та όσα συμβαίνουν γύρω 
μας. 

Διαβάστε αυτό το περιοδικό, κατασταλάξτε σε ша άποψη γι’ αυτό και στείλτε µας ταχυδρομικά 
τις σκέψεις σας, τις βελτιώσεις που προτείνετε, και ότι άλλο έχετε να πείτε σχετικά. 

Πείτε µας τη γνώμη σας για τη νέα µορφή του περιοδικού. Είναι κάτι που µας ενδιαφέρει και 
δεν θα θέλαμε να υπάρχει μονόλογος σ᾽ αυτό. 


Σας ευχαριστούμε Προκαταβολικά. 
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Η ΠΛΕΥΡΑ 
ΤΩΝ 
ΕΙΔΗΣΕΩΝ... 


----Графооу or: — 
Γρηγόρης Σουρµελάκπς 
Νίκος Γεωργιάδης 


GAMES апо την 
ΑΜΟΤΗΑΡ σε χαμηλή 
τιμή 


Στην Αγγλία п AMSTRAD δίνει σε xa- 
μηλή τιµή μερικά παιχνίδια για τους РС 
της. 

ЕЯ πρώτο από αυτά είναι то Winter 
Games. Αποτελείται από αθλήματα ó- 
πως то ӨКІ, το SKI-JUMP. H τιμή του εί- 
ναι 219.95. 


ος, 


Το δεύτερο game είναι το Summer 
Games ΙΙ. Περιέχει αθλήματα όπως το 
τρέξιμο, το jump κτλ. Н τιµή του είναι 
219.95. 

πο, = 


дашат 


Το τρίτο παιχνίδι είναι το ΜΕΑΝ 18 
GOLF. Ме to πρόγραµµα αυτό µπορείτε 
να σχεδιάσετε το δικό σας γήπεδο του 
Golf. Μπορείτε να βάλετε δέντρα, ανη- 
Φόρες, χαντάκια κτλ. Н τιµή του είναι 
219.95. 
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Το τέταρτο παιχνίδι είναι το Pitstop 
ll όπου είσαστε οδηγός µιας φόρμουλας 


ένα. Η τιµή που διατίθεται από την ΑΜ- 


STRAD είναι £19.95. 


Το τελευταίο παιχνίδι είναι το Cyrus 
II Chess. Μπορείτε να διαλέξετε τι σκα- 
κιέρα προτιμάτε, δισδιάστατη ή τρισδιά- 
στατη. Υπάρχουν 12 επίπεδα δυσκολίας 
από κάποιον άπειρο μέχρι πολύ προχω- 
Ρημένο. Н τιµή αυτού του παιχνιδιού eí- 
ναι £19.95. 


ПРОТОМТА ΤΗΣ 
ΑΤΚΟ 


ЕН 


Από την АТКО Computer Systems 
πληροφορούμαστε πως εισάγει απο- 
κλειστικά; STRIDE Super micro Η/Υ, ОК! 
printers (dot matrix και laser), HOUSTON 
INSTRUMENT plotters, QUADRAM (add- 
ons, κάρτες µνήµης, δίκτυα, laser prin- 
ters, scanners, high res. monitors, φορη- 
τούς υπολογιστές), BARCODE INDUST- 
RIE για barcodes, Galaxy graphic teppa- 
τικό, CMS σκληρούς δίσκους, tape back- 
up system, AUTOCAD πρόγραμμα αρχι- 
τεκτονικής σχεδίασης. 

H ΑΤΚΟ είναι ΙΒΜ autorized dealer 
και dealer ξένου software και επαγγελ- 
µατικών προγραμμάτων της COMPU- 
TER LOGIC, SINGULAR, κλπ. Επίσης nw- 
λεί αναλώσιμα, δισκέτες, χαρτί για εκτυ- 
πωτές κλπ. 

H διεύθυνση είναι γνωστή, µια επί. 
σκεψη θα σας πείσει για την ποικιλία και 
την μοναδική εξυπηρέτηση. 


Πρόκληση για σύγκριση! 


O PC-1640 είναι ό,τι πιο τέλειο υπάρχει 
σήμερα στην αγορά των Συμθατών 
υπολογιστών. 


Περιέχει σαν στάνταρ: 


EGA, Hercules, CGA και MDA κάρτες, 

στο mother board. 

- Ὑψηλή ανάλυση οθόνης (Έγχρωμη 
640х350, Μονόχρωμη 720x348) 

- 640 K RAM 

- 8086 επεξεργαστή ота 8 MHZ 

- Centroinics και RS232 θύρες 

- 64 χρώματα 

- Mouse 

- 3 θύρες επεκτάσεως ελεύθερες και 
µετά την τοποθέτηση σκληρού δίσκου 

Ρολόϊ, µεγάφωνο κ.λπ. 


Ποιότητα AMSTRAD ο Εγγύηση AMSTRAD 
Τιμή AMSTRAD 
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ΑΠΟΚΛΕΙΣΤΙΚΗ ΑΝΤΙΠΡΟΣΩΠΕΙΑ AMSTRAD/SINCLAIR 


Πολυτεχνείου 12 е Αθήνα 10433 ө Τηλ. 5227924 - 5227925 ө Telex: 223662 POLIGR Fax: 5228054 


Η ΠΛΕΥΡΑ 
ΤΩΝ 
ΕΙΔΗΣΕΩΝ... 


----Графооу ос:---- 
Γρηγόρης Σουρμελάκης 
Νίκος Γεωργιάδης 
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Από τις 26 μέχρι τις 30 Νοεμβρίου 
πραγματοποιήθηκε στη Θεσσαλονίκη η 
ΙΝΕΟΘΥΘΤΕΜ “87. Τα εκθέματα κάλυ- 
πταν τις παρακάτω κατηγορίες: 

"Ηλεκτρονικά Υπολογιστές -περιφε- 
ρειακά - υλικά κατασκευής - εξαρτήματα 
- περιβάλλον λειτουργίας - δίκτυα υπο- 
λογιστών. 

* Ηλεκτρονικοί υπολογιστές ειδικής 
χρήσεως - τηλεπικοινωνίας - μηχανές 
γραφείου. 

* SOFTWARE (ανάπτυξη проүраџ- 
μάτων). 

* Αυτοματισμός Γραφείου. 

* Πληροφορική και εκπαίδευση. 

* Ειδικός Τύπος. 

Н πρώτη ΙΝΕΟΘΥΘΤΕΜ αναπτύχθηκε 
σε συνολικό λειτουργικό χώρο 40.000 
τετραγωνικών μέτρων. 

Οι εκθέτες που πήραν µέρος στην έκ- 
θεση υπερβαίναν τους 200 και προέρ- 
χονταν από την Ελλάδα και από άλλες 
δώδεκα χώρες. 

Κατά τη διάρκεια της έκθεσης πραγ- 
ματοποιήθηκε το τριήμερο πληροφόρη- 
σης που κάλυπτε πολλά και ενδιαφέρον- 
τα θέματα. 

Αναφέρω μερικά από αυτά: 

-- Τεχνητή νοημοσύνη και εφαρ- 
μογές. 

-- Τεχνητή νοημοσύνη και έμπειρα 
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συστήματα. 

-- Λογικός προγραμματισμός και 
Prolog. 

-- Εφαρμογή συστηµάτων CAD στην 
ελληνική βιομηχανία. 

— To πρότυπο των ελληνικών χαρα- 
κτήρων ΕΛΟΤ 928 UNIXPOSIX και ο ρό- 
λος του ΧΙΟΡΕΝ. 

-- Προηγμένα εργαλεία ανάπτυξης 
λογισμικού. 

-- Πληροφορική και εκπαίδευση. 

-- Ηλεκτρονικός Υπολογιστής και 
προσωπικές πληροφορίες. 

Οιέλληνες προσκεκλημένοι δηµοσιο- 
γράφοι στην ΙΝΕΟΘΥΘΤΕΜ ήταν: 


Α.Α. ΟΝΟΜΑΤΕΠΩΝΥΜΟ 
1. Г. ΑΛΕΞΑΝΔΡΗΣ 
2. ΠΑΝΑΓΙΩΤΗΣ ΑΜΥΡΑΣ 
3. ΚΩΝ/ΝΟΣ ΣΚΟΥΡΑΣ 


4. ΑΘ. ΒΑΣΙΛΕΙΑΔΗΣ 

5. ΓΙΩΡΓΟΣ ΑΡΑΠΟΓΛΟΥ 

6. ΓΙΩΡΓΟΣ ΘΑΝΟΠΟΥΛΟΣ 
7. ΣΑΡΑΝΤΗΣ ΔΗΜΗΤΡΙΟΥ 
8. ΓΙΑΝΝΗΣ ΧΑΛΑΒΑΖΗΣ 

9. ΓΙΩΡΓΟΣ ΠΑΠΑΝΙΚΟΛΑΟΥ 
10. Δ. ΒΟΥΔΟΥΡΗ 

11. Г. ΚΑΠΑΔΟΥΚΑΚΗΣ 


12. ЛОҮКІА ТАЛІАДОРОҮ 


LCD οδόνη апо την 
ΕΡΘΟΝ 


H Seico Epson Corp. υπόγραψε πρό- 
σφατα µια συμφωνία µε την Rockwell In- 
ternational (από τις μεγαλύτερες εται- 
ρίες της Αμερικής που ασχολείται µε το 
διάστηµα, τα ηλεκτρονικά, και µε άλλα 
θέµατα υψηλής τεχνολογίας) για την ка- 
τασκευή µιας πολύ λεπτής LCD οθόνης 
για να χρησιµοποιηθεί στο copit του νέ- 
ου αεροσκάφους που σχεδιάζει η Roc- 
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ΕΦΗΜΕΡΙΔΑ - ΠΕΡΙΟΔΙΚΟ 

32 ΒΙΤ 

ΕΞΠΡΕΣ 

Η ΕΛΛΗΝΙΚΗ ΠΛΕΥΡΑ ΤΟΥ 
AMSTRAD 

ΗΜΕΡΗΣΙΑ 

ΗΛΕΚΤΡΟΝΙΚΗ & COMPUTER 
ΚΕΡΔΟΣ 

ΜΙΟΒΟΜΑΡ 

ΝΑΥΤΕΜΠΟΡΙΚΗ 
ΟΙΚΟΝΟΜΙΚΟΣ ΤΑΧΥΔΡΟΜΟΣ 
O ΚΟΣΜΟΣ ΤΟΥ AMSTRAD 
PLANT MANAGEMENT, MICRO 
& COMPUTER AGE 
COMPUTER ΓΙΑ ΟΛΟΥΣ, PIXEL, 
INFORMATION 


kwell. H Seico Epson θα κατασκευάσει 
τα έγχρωμα, high resolution LCD display 
panels, mou θα δίνουν στον πιλότο καθα- 
ρές, ευανάγνωστες πληροφορίες για 
ο,τιδήποτε συμβαίνει στο αεροσκάφος. 


Το όλο project θα βασιστεί στην τεχνο- 
λογία ΤΕΤ (Thin Film Transistor) που υ- 
πόσχεται µεγάλη αξιοπιστία. 


ΕΛΛΗΝΙΚΑ MANUAL 
ΓΙΑ 1512, 6128, 
ЅРЕСТКОМ + 2 

терлік βιβΗοτο/εἰο-εκὀύσεις 


ГЇ Παπασωτηρίου) 


Στουρνάρα 23, τηλ.: 3641826 


Το ΤΕΧΝΙΚΟ ΒΙΒΛΙΟΠΩΛΕΙΟ ΠΑΠΑΣΩ- 
ΤΗΡΙΟΥ εξασφάλισε και διαθέτει ΑΠΟ- 
ΚΛΕΙΣΤΙΚΑ τα manuals των AMSTRAD 
РС1512, СРС-6128, SPECTRUM + 2 κα- 
θώς επίσης και των PRINTER DMP 3000- 
3160 και 4000. Τα βιβλία αυτά είναι οι επί- 
σηµες μεταφράσεις της αντιπροσω- 
πείας της AMSTRAD στην Ελλάδα. Τώρα 
είναι η ευκαιρία για όλους εσάς που ayo- 
ράσατε τον 1512 να αποκτήσετε και το 
Manual μεταφρασμένο στα ελληνικά. 
Τεχνικό βιβλιοπωλείο-εκδόσεις 
Παπασωτηρίου 
Στουρνάρα 23, τηλ. 3641826 


Modem για Amstrad 


Ένα νέο modem για τους AMSTRAD 
РС1512 και ΡΟ1640 διαθέτει η OASIS 
COMPUTER ΑΒΒΕ. To modem αυτό δου- 
λεύειµετο πρότυπο V21/V23 και διατίθε- 
ται σε κάρτα. H OASIS σκοπεύει να pé- 
ρεισεεπαφήτους πελάτες της γιανα av- 
ταλάσσουν προγράµµατα και πληροφο- 
ρίες. 

Για περισσότερες πληροφορίες 
OASIS COMPUTER ΑΒΕΕ 
Μάρνη 1 Αθήνα, τηλ. 5227391 


Αυξήστε την ταχύτητα 
των drive του PC 


Ένα νέο προϊόν που αξάνει την ταχύ- 
τητα των drives ανακοίνωσε η Gecas 
Business Computers. H εταιρία υποστη- 
ρίζει ότι η προσπέλαση του δίσκου γίνε- 
ται δύο µε τέσσερις φορές γρηγορό- 
τερα. 

Το όνοµατου προγράµµατος είναι Li- 
ghting και η τιµή του 209.99. 

Για περισσότερες πληροφορίες 
Gecas Business Computers 
(01551 7275) Αγγλία 


PC-FOUR της PSION 


Θα θυμάστε βέβαια τα προγράµµατα 
της PSION που έδωσε μαζί ре τον QL ο 
Sir Clive Sinclair. Τώρα µπορείτε να τρέ- 
ξετε τα ίδια προγράµµατα και στον ΡΟ 
σας. H PSION δίνει και τα τέσσερα npo- 
γράμματα σε ένα πακέτο µε την ονοµα- 
σία PC-FOUR. Το РС-ҒООН περιλαμβά- 
νει ένα WORD PROCESSOR (Quill), ένα 
SPREAD SHEET (Abacus), μια 
DATABASE (Archive), και ένα πρόγραμ- 
μα για BUSINESS GRAPHICS. 

Για περισσότερες πληροφορίες 
Psion (01-723 9408) Αγγλία 


Games Creator 


Για πρώτη фора ot χρήστες των С 
compilers Ва μπορούν να γράφουν τα δι- 
κά τους παιχνίδια. H Zorland ανακοίνω- 
σε το Games Toolkit στην χαμηλή τιµή 
των 229.95. 

Το πακέτο περιλαμβάνει τρία έτοιµα 
παιχνίδια (σκάκι, τάβλι, και το παιχνίδι 
στρατηγικής Wari) μαζί µε το source κώ- 
δικα. 

Για περισσότερες πληροφορίες 
Zorland (Ф1 854 11941) 
Αγγλία 
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Σατανικό... χαμόγελο 


Χαμογελά ο κύριος Γλυκούλης και 
σκέφτεται: «Επιτέλους τι θα γίνει θα 
μπω στην αμερικάνικη αγορά; Ό,τι θέ- 
Лау τους то έδωσακαισετιµή ката TOU 
κόστους. Μέχρι και ΡΡΟ φορητό τους έ- 
δωσα. Ау δεν πιάσει και αυτό £ τότε...» . 


Γ 


Τότε το 80286 ή το 80386 μηχάνημα 
που έχει σίγουρα στα σκαριά θα είναι 
μια καλή κίνηση. Εμείς του ευχόμαστε 
καλή επιτυχία. Το αξίζει άλλωστε... 


Super Hikari 


To <Super Нікагі» είναι το τραίνο της 
επόµενης γενιάς που κατασκευάζει η 
Japan Railways. Στο πίσω µέρος κάθε 
θέσης θα υπάρχει µια Epson ET-507 έγ- 
χρωμη TV, 33 Ιντσών. 


O λόγος που διαλέξαν αυτή την LCD 
οθόνη είναι ὁτιη LCD έχει µικρή κατανά- 
λωση ρεύµατος και επειδή έχει πολύ κα- 
λή εικόνα. 


ΕΓΔ ΕΙΝΑΙ ΤΟ ΚΑΤΑΣΤΗΜΑ ΣΤΑ COMPUTERS 7 


РС COMPUTERS 


ΜΕ ΤΗΝ ΕΝΑΡΞΗ ΤΟΥ ΝΕΟΥ ΜΑΣ 
ΚΑΤΑΣΤΗΜΙΑΤΟΣ ΧΑΡΙΖΟΥΜΕ ΜΕ 
ΚΑΘΕ ΑΓΟΡΑ ΡΟ ΤΗΝ ΕΛΛΗΝΙΚΗ 
ΕΠΕΞΕΡΓΑΣΙΑ ΚΕΙΜΕΝΟΥ «ΑΝΑΛΟΓΙΟ» 
ΚΑΙ ΤΟ ΔΙΚΟ ΜΑΣ ПРОГРАММА 
«FOOTBALL» ΓΙΑ ΠΑΡΟΥΣΙΑΣΗ ΚΑΙ 
ΕΝΗΜΕΡΩΣΗ ΤΟΥ ΠΡΩΤΑΘΛΗΜΑΤΟΣ 


ΗΟΜΕ COMPUTERS 


ΜΕ ΚΑΘΕ ΑΓΟΡΑ ΗΟΜΕ COMPUTER 
ΧΑΡΙΖΟΥΜΕ ΤΟ Νο 1 ΣΤΑ ΤΟΡ 
GAMES ΤΗΣ US GOLD 


SUPER ΠΡΟΣΦΟΡΑ 


GREEK SOFTWARE 

ΓΙΑ IBM РС ΚΑΙ ΣΥΜΒΑΤΟΥΣ 
ΕΜΠΟΡΙΚΟ 

ΕΣΟΔΑ - ΕΞΟΔΑ 

ΣΥΝΕΡΓΕΙΟ ΑΥΤΟΚΙΝΗΤΩΝ 
ΑΥΤΟΜΑΤΟΠΟΙΗΣΗ ΓΡΑΦΕΙΟΥ 
ΟΔΟΝΤΟΤΕΧΝΙΤΩΝ 

VIDEO CLUB 

ΦΡΟΝΤΙΣΤΗΡΙΑ 

ΛΟΓΙΣΤΙΚΟ 

ХРҮХОХО ГАХ 

ΠΡΑΤΗΡΙΑ ΣΙΓΑΡΕΤΩΝ 

και ἄλλα πολλά. 


ΠΕΛΑΤΕΣ - ΑΠΟΘΗΚΗ - ΛΟΓΙΣΤΗΡΙΟ - ΑΓΟΡΕΣ - ΠΡΟΜΗΘΕΥΤΕΣ - 
ΤΙΜΟΛΟΓΗΣΗ - ΤΑΜΕΙΟ - ΑΞΙΟΓΡΑΦΑ - Φ.Π.Α. - ΣΤΑΤΙΣΤΙΚΗ 


2% ОЛА ОМ LINE ΜΟΝΟ 65.000 + Ф.П.А. 


PRINTER SEIKOSHA 5Р-180 ΜΟΝΟ 30.500 + Φ.Π.Α. 


AMSTRAD - COMMODORE - ACER - DTM - TULIP - MAC TURBO - OLYMPIC 
DATA - AMIGA - ATARI - STAR - SEIKOSHA - CITIZEN - MITSUBISHI -TANDON - 


FUJITSU κ.ά. 


ΕΓΓΡΑΦΕΙΤΕ ΔΩΡΕΑΝ ΣΤΟ ENA COMPUTERS CLUB 
ΚΑΙ ΚΕΡΔΙΣΤΕ ΑΠΟ TIZ ΜΗΝΙΑΙΕΣ ΠΡΟΣΦΟΡΕΣ ΜΑΣ 


ΠΡΟΣΦΟΡΑ ΙΑΝΟΥΑΡΙΟΥ: ΔΙΣΚΕΤΕΣ ΡΒΕΟΙΡΙΟΝ 5,25 D 
180 ΔΡΧ. 


Е! ΔΕΝ ΕΙΝΑΙ ΤΟ Νο БУМА; 


ΕΝΑ COMPUTERS Ε.Π.Ε. ΚΥΠΡΟΥ 77 ΑΡΓΥΡΟΥΠΟΛΗ 
ΤΗΛ.: 9933062 - Т.К. 164-51 (ΑΠΕΝΑΝΤΙ ΑΠΟ ΤΟ ΔΗΜΑΡΧΕΙΟ) 


ΠΟΥ ΘΑΒΡΕΙΤΕ TI 


Έρευνα: Г. Σουρµελάκης 


Γλώσσες προγραμματισμού 
και Utilities 


Turbo Pascal 3.0/BCD & 8087 


Είναι n γνωστή σε όλους µας Turbo Pascal. Στην Ελλάδα да την Βρείτε 
από την αντιπροσωπεία της Borland, τις εκδόσεις Κλειδάριδµος, 
Μποτάση 5, τπλ. 3601076. 


Turbo Database ToolBox 


Περιέχει ρουτίνες για προσπέλαση αρχείων. O κώδικας είναι ypappé- 
νος σε Turbo Pascal. Θα το θρείτε στην αντιπροσωπεία της Borland 
στην Ελλάδα στις εκδόσεις Κλειδάριδµος, Μποτάση 5, τηλ. 3601076. 


Turbo Editor Toolbox 


Είναι µια θιθλιοδήκη που περιέχει ρουτίνες για να κατασκευάσετε то 
δικό σας editor σε Turbo Pascal. Το πακέτο ro διαδέτουν οι εκδόσεις 
Κλειδάριθμος, Μποτάση 5, τηλ. 3601076. 


Turbo Graphix Toolbox 


Περιέχει µια θιθλιοδήκη µε ρουτίνες γραμμένες σε Turbo Pascal που 
αξιοποιούν τις δυνατότητες του ΡΟ σας στα γραφικά. Θα το θρείτε 
στις εκδόσεις Κλειδάριϑμος, Мпотаоп 5, τηλ. 3601076. 


Turbo C 


Είναι n έκδοση της C από την Borland. Εκτός από τις standard pourí- 
veç της C περιλαμθάνει και άλλες που έχει προσδέσει n Borland. Θα 
тп θρείτε στις εκδόσεις Κλειδάριϑμος, Μποτάση 5, τηλ. 3601076. 


Turbo Basic 


Είναι o Basic Compiler της Borland International. Είναι µια δομημένη 
γλώσσα που δε μοιάζει σχεδόν καθόλου pe tnv πατροπαράδοτη Basic. 

Στην Ελλάδα την δίνουν οἱ εκδόσεις Κλειδάριδµος, Μποτάση 5, 
τπλ. 3601076. 


Turbo Prolog 


Είναι n έκδοση της Prolog апо την Borland. H γλώσσα αυτή είναι 
ειδική για εφαρμογές τεχνιτής νοημοσύνης καὶ για database. 

Στην Ελλάδα την δίνουν οι εκδόσεις Κλειδάριϑμος, Μποτάση 5, 
τηλ. 3601076. 


MS Cobol Cormpiler 


Είναι п Cobol της Microsoft. Πολλές εταιρίες παραγωγής προγραμμά- 
των την χρησιμοποιούν για να κατασκευάσουν τα προγράµµατα τους. 
Oa tnv θρείτε στην αντιπροσωπεία της Microsoft στην Ελλάδα, Πωλιά- 
δης και συνεργάτες ΕΠΕ, Коорпарп 5, τηλ. 3603471. 


Quick Basic Compiler 


Είναι o Compiler тпс Basic апо την Microsoft. Είναι πράγματι ένα πολύ 
καλό εργαλείο για ανάπτυξη προγραμμάτων. Στην Ελλάδα διατίθεται 
απότους Πουλιάδη και συνεργάτες ΕΠΕ, Κουμπάρη 5, τηλ. 3603471. 


Lotus Metro 


Είναι ένα resident πρόγραµµα που μένει στη μνήμη. Είναι σαντο Side- 
kick µόνο που έχει περισσότερες δυνατότητες από αυτό. Διατίδεται 
στη χώρα µας από то Byte Computer Application, Ελ. Βενιζέλου 8, 
τηλ. 9237057. 


Macro Assembler 


Είναι ο γνωστός Macro Assembler από την Microsoft. Θα το θρείτε 
στον Πουλιάδη και συνεργάτες ΕΠΕ, Κουμπάρη 5, τηλ. 3603471. 


Cobol Tools 


Είναι θοηδητικά προγράµµατα της MS Cobol апо την Microsoft. Το 


πακέτο да то θρείτε στην Πουλιάδης και συνεργάτες EME, Κουμπάρη 
5, τηλ. 3603471. 


Lotus Developer Tools 


Είναι µια χρήσιμη utility για το spreadsheet της Lotus то 1-2-3. Θα 
то θρείτε στο Byte Computer Applications, Ελ. Βενιζέλου 8, τηλ. 
9237057 


H έρευνα έγινε στις 7.12.1987 


Ευχαριστούμε όλες τις εταιρίες για την продоропоіпоп τους 
και περιμένουμε και εσάς που έχετε κάτι σχετικό να µας το 
δηλώσετε αλλπλογραφικά µε δελτίο τύπου στη διεύϑυνση του 
περιοδικού: Мпотаоп 9, 106 82, Εκδόσεις Ανάδραση για rn 
στήλπ ΠΟΥ ΘΑ ΒΡΕΙΤΕ ΤΙ. 
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КАРАМПА! 


ΑΥΤΟΣ О ΑΝΘΡΩΠΟΣ 
ΕΙΝΑΙ Ο... 


Μανώλης Νταλούκας 


ДОНМА 984 ЕМ STEREO 


Κάθε ΚΥΡΙΑΚΗ (2-4 μ.μ) τον ακούτε χωρίς уа 
τον βλέπετε" στην εκπομπή 
ΓΕΙΑ ΣΟΥ ΕΛΛΑΔΑ ΜΕ ΤΙΣ ΚΛΗΜΑΤΑΡΙΕΣ ΚΑΙ ΤΑ ΚΟΜΠΙΟΥΤΕΡΑΚΙΑ ΣΟΥ. 


* Μπροστά στη Νέα Τεχνολογία ανοίγονται τα μάτια.... 


LIVE PRESS Advertising 


STOP == 


Αποκτήστε τώρα έναν Αµστραντ και πληρώστε 
σε 6 µηνιαίες δόσεις!.. 


O AMSTRAD 6128 Β)ΝΝ 21.600 ΚΑΙ 6 ΔΟΣΕΙΣ ΤΩΝ 9.!!! ΔΡΧ. 
O AMSTRAD 6128 COLOUR 30.600 ΚΑΙ 6 ΔΟΣΕΙΣ ΤΩΝ 1!.!!! ΔΡΧ. 
O AMSTRAD РС 1512 SD B)W 35.700 ΚΑΙ 6 ΔΟΣΕΙΣ ΤΩΝ 1!.!!! ΔΡΧ. 
O AMSTRAD ΡΟ 1640 DD B)W 50.000 ΚΑΙ 6 ΔΟΣΕΙΣ ТОМ 1!.!!! ΔΡΧ. 


O AMSTRAD ΣΚΛΗΡΟΣ ΔΙΣΚΟΣ 22.000 ΚΑΙ 6 ΔΟΣΕΙΣ ΤΩΝ 9!.!!! АРХ. 


ΠΑΡΟΜΟΙΟΣ ΔΙΑΚΑΝΟΝΙΣΜΟΣ ΓΙΑ ΟΛΑ ΤΑ ΜΟΝΤΕΛΛΑ 
ΚΑΙ ΕΚΤΥΠΩΤΕΣ AMSTRAD & STAR 


5 JOYSTICK % ΚΑΡΤΑ ΓΙΑ AMSTRAD РС 
үс ΦΙΛΤΡΑ ΟΘΟΝΗΣ ΓΙΑ AMSTRAD 


10 ΝΕΑ ΠΡΟΙΟΝΤΑ 
ΑΠΟ ΤΗ NEW LOGIC = 


—v s μα... 
COPY HOLDER,PRINDER STAND KAI ΠΙΝΑΚΑΣ ΚΙΝΗΣΗΣ MOUSE 


ΔΙΣΚΕΤΕΣ 3 KAI 5 ΑΠΟ 190 ΔΡΑΧΜΕΣ ΜΕ ΕΓΓΥΗΣΗ 


ΕΠΙΠΛΑ ΜΗΧΑΝΟΓΡΑΦΗΣΗΣ ΑΠΟ 11.000 ΔΡΧ. 


ΦΙΛΤΡΑ ΑΝΤΙΘΑΜΒΩΤΙΚΑ.ΠΡΟΣΤΑΤΕΥΤΙΚΑ ΓΙΑ ΡΟ KAI AMSTRAD 
ΔΙΣΚΟΙ ΚΑΙ ΚΑΡΤΕΣ 20 ΚΑΙ 30 MG 
——ə—————>— ——— h qÜ>D>-.-— —-——. J U U 22-000 00 
ΠΛΗΡΕΣ ΒΑΛΙΤΣΑΚΙ ΚΑΘΑΡΙΣΤΙΚΩΝ ΣΕ ΣΥΣΚΕΥΑΣΙΑ ΔΩΡΟΥ (ΔΙΣΚΟΣ ΚΑΘΑΡΙΣΜΟΥ,ΦΡΒΑΥ 
ΚΑΘΑΡΙΣΤΙΚΑ ΟΘΟΝΗΣ.ΚΑΘΑΡΙΣΤΙΚΟ ΠΛΗΚΤΡΟΛΟΓΙΟΥ 


ΓΕΡΜΑΝΙΚΟΣ PRINDER ΜΕ 100 CPS,DRAFT AND ΝΙΟ,ΕΛΛΗΝΙΚΑ,ΚΑΛΩΔΙΟ,ΤΡΟΦΟΔΟΤΗΣ 
ΧΑΡΤΙΟΥ ΤΙΜΗ ΕΚΠΛΗΞΗ APX.3I 41 


SCAYER ПА РС KAI ΑΜΘΤΗΑΟ:ΜΕΤΑΦΕΡΕΙ ΟΠΟΙΑΔΗΠΟΤΕ EIKONA Στο ΜΟΝΙΤΟΡ 
ΚΑΙ ΤΗΝ ΕΠΕΞΕΡΓΑΖΕΤΑΙ (KAPTA, SCANER, SOFTWARE)N 


KIT ΓΙΑ AMSTRAD (ΔΙΣΚΟΣ,ΟΟΝΤΡΟΙΙΕΒ,ΕΟΝ) 


JOYSTICK ΓΙΑ ΡΟ ΚΑΙ ΜΕ ΕΙΔΙΚΗ ΚΑΡΤΑ ΓΙΑ ΝΑ ΠΑΙΖΟΥΝ ΟΛΑ ТА ΠΑΙΧ 
AMSTRAD РС τν 


ΠΡΟΣΟΧΗ ΜΕΓΑΛΗ ΧΡΙΣΤΟΥΓΕΝΝΙΑΤΙΚΗ ΠΡΟΣΦΟΡΑ: 


ΑΛΛΑΞΤΕ ΤΟ 6128 AMSTRAD ΜΕ ΤΑ ΝΕΑ ΜΟΝΤΕΛΛΑ ΡΟ 1512 ἡ ΡΟ 1640 


ΤΗΛΕΦ. ΧΟΝΔΡΙΚΗΣ: 533700 


ΚΝ ө 

<s new logic 

ww 

ΥΠΟΛΟΓΙΣΤΕΣ @ ΠΡΟΓΡΑΜΜΑΤΑ @ ΕΚΠΑΙΔΕΥΣΗ ΠΕΡΙΦΕΡΕΙΑΚΑ @ ANAA ΩΣΙΜΑ 
ΘΕΣΣΑΛΟΝΙΚΗ ΤΣΙΜΙΣΚΗ З (3ος ὀροφ.) ΤΗΛ. 031-533.700-541.330 


Του Ν. Γεωργιάδη 


Dr.Draw 


Side À 
DDFXLR7.PRL GSX.SYS INDROM.8 SIMSCR.8 
DDMODEO.PRL DRAW.COM ASSIGN.SYS ΡΡΜΟΡΕΙ ΡΗΙ. 
TYPE.COM DUPROM.8 DDMODE2.PRL INDITA.8 
GOTITA.8 

Side B 
DRAW.001 DRAW.002 DRMSG80.TXT DRMSG40.TXT 
DRAW.003 DRAW.004 FONTB.BIN DRAQ.005 
DRAW.006 DRAW.007 DRAW.008 DRAW.009 
ΕΡΤΑ.ΡΙΧ ΕΟΝΤΑ.ΒΙΝ ҒОМТС.ВІМ 


Н κατανομή των αρχείων σε 2 πλευρές. То ΕΡΤΑ.ΡΙΧ είναι 
αρχείο εργασίας κατά τη διάρκειά του χωρίς manual... 


Φορτώνοντας το Dr.Draw... 


«Τρέχουμε» πρώτα то СРМ + και µετά θάζουµετη δισκέτα του 
Dr.Draw апо την πλευρά А, Πληκτρολογούμε: DRAW και η δια- 
δικασία ξεκινά... Πρώτα φορτώνεται το GSX – 80 που да υποστη- 
ρίξει µετις ρουτίνεςτουτις ανάγκες γραφικών. Ύστερα ακολουϑεί 
το Dr.Draw. 

Όσοι δεν έχουν 2 drives да χρειαστεί πολλές φορές να γυρί- 
σουντη δισκέτα απότην À ή B πλευρά σύμφωνα πάντα µετα μηνύ- 
шата που да εμφανίζονται στο κάτω μέρος της οϑόνης του 
CP/M+. 

Ύστερα апо λίγο και ενώ ғіраот от В πλευρά θλέπουμε τα 
παρακάτω menu και έναν κέρσορα! 


Greate Recall Edit Save Directory Output Exit 

Me тоу κέρσορα διαλέγουµε µια апо тїс επιλογές πηγαίνοντας 
τον µε τα θελάκια πάνω καὶ πιέζοντας SPACE. 

Ας δούµε όµως рай µία-μία τι κάνουν αυτές οἱ επιλογές. 


Create: 
М” αυτή την επιλογή δίνουμε το όνομα ενός νέου αρχείου που 
δημιουργούμε για να δουλέμουµε. 


Recall: 

М” αυτή την επιλογή «καλούμε» ένα αρχείο апо το δίσκο στο 
οποίο είχαμε εργαστεί παλιότερα για уа то δούµε ñ va ro διορδώ- 
σουμε. 


Edit: 

Αν έχουµε φορτωμένο κάποιο αρχείο, τότε μ᾿ αυτή την επιλογή 
επιστρέφουµε στο Editor για να συνεχίσουμε την εργασία µας. 
Save: 

Σώζει το τρέχον αρχείο ζητώντας µας νέο όνομα av δέλουµε. 
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Τα αρχεία σώζονται µε το χαρακτηριστικό .ΡΙΧ. 


Directorv: 

Ένα μήνυμα: On which drive? µας ρωτάει για ro drive από 
το οποίο ὃα εμφανιστούν τα directories. 

Εμφανίζονται µόνο όσα έχουν το χαρακτηριστικό .ΡΙΧ. 


Output: Οι πιδανές εξόδους για την εικόνα που δημιουργήσαμε 


είναι: 

o) Printer: EPSON συμθατό 
6) Plotter: κάποιον plotter 
ү) Screen1: Mode 1 o8óvn 
6) Screen2: Mode 2 o8óvn 


Οι 2 τελευταίες επιλογές µας δίνουν την ευκαιρία να πάρουμε 
µια ιδέα για το πώς ϑα φανεί η εικόνα σε printer ñ plotter ñ να 
προθάλλουµε κάποιο καλό slide. 


Exit: Επιστροφή στο φιλικό А> 


Ας δούµε όµως τώρα τις επιλογές του κυρίως editor: 
Add Change Select Μονο Сору Undelete Delete 


Πάλι µε τον κέρσορα διαλέγουμε µια από τις επιλογές: 


Λάά: 

Έχει τις υποεπιλογές. 
Text: Θέτουμε µε τον κέρσορα την αρχή του μηνύματος που да 
γράψουμε, δίνουμε RETURN αν τελειώσαμε. 


Polygon: Με θελάκια και RETURN σχεδιάζουμε ένα πολύγωνο 
το οποίο το επιθεθαιώνουµε πατώντας 2 φορές RETURN. Το 
Dr.Draw κάνει fill το σχήμα θάσει του τρέχοντος pattern. 
Circle: Θέτουµε κέντρο και ακτίνα του κύκλου. Αφού τελειώσου- 
µε διαλέγουµε αν ο κύκλος да είναι άδειος ñ γεμάτος. (fill), πάλι 
θάσει του τρέχοντος pattern. 


Arc: «Τυράκια» ñ pie chart δίνοντας κέντρο, αρχή και τέλος. Μετά 
διαλέγουμε πάλι όσον αφορά το pattern. 


Lines: Γραμμές (draw) που ορίζουμε την αρχή και то τέλος τους. 
Markers: Βάζουμε αστεράκια (+) σε σηµεία επιλογής µας. 


Βατ: Φτιάχνουμε κουτιά δίνοντας τις 2 γωνίες τους. 
Εδώ τελείωσαν οι υποεπιλογές της Αάά. 
Chanae: 


Έχει τις υποεπιλογές. 


Stvle: 


Αλλάζει το στυλ του τρέχοντος εργαλείου που χρησιμοποιού:- 


με, π.χ. για pattern µας παρουσιάζει 3-4 διαφορετικά στυλ, για 
γραμμές (διακεκομμένες, απλές к.Ап.). 


View: 

Έχει τις υπο-υποεπιλογές: 
Zoom іп, Zoom out, Zomm ІШІ, Pan, Put to Back. 

Zoom σε τµήµα οδόνης. 

Επαναφορά εικόνας, Zoom στο μέγιστο, αλλαγή κέντρου ouv- 
τεταγμένων και επιστροφή αντίστοιχα. 


Scale: 

Έχει τις υπο-υποεπιλογές: 

Uniform, Non -- Uniform. 

Με Uniform ορίζουμε το τµήµα της o8óvnç στο οποίο да our- 
κρυνδεί n τρέχουσα εικόνα. Με Non -- Uniform το αντίθετο (µεγέ- 
θυνση). 


Lavout: 
Έχει τις υπο-υποεπιλογές: 
Portait, Landscape, Screen. 
όπου σχηματίζουν 3 διαφορετικά «τελάρα» οδονών. 


Color: 

Ορίζουµε το τρέχον χρώμα. 

Στην mode 2 έχουµε 2 χρώματα και στο mode 1 έχουµε 4 χρώ- 
ната. Αντίστοιχη είναι και n εκτύπωση σε printer ñ plotter. 


Grid: 
Grid, Size 2x, Size 0,5х 
On, Off σύστηµα συντεταγμένων (κάναθος) 
Μεγέδη κάναθου. 


Redraw: 
Επανασχεδιασµός της εικόνας που έχουµε δημιουργήσει. 
Εδώ τελείωσαν οι υποεπιλογές της Change. 


Select: 
Διαλέγουμε ένα апо τα σχήµατα που έχουµε φτιάξει περι- 


κλείοντάς το. Το Dr.Draw µας δείχνει το σχήμα που διαλέξαμε 
και που πλέον μπορούμε να εργαστούμε ξανά σ᾽ αυτό (διόρϑωση, 


ΕΚΔΟΣΕΙΣ 
ΑΝΑΔΡΑΣΗ 


σθήσιμο). 

Τη δυνατότητα αυτή την έχει ΜΟΝΟ το Dr.Draw. Μπορούμε 
να επέµθουµε στα οχήματα που έχουµε κάνει μεμονωμένα θλέ- 
ποντάς τα σαν ξεχωριστά αντικείμενα. 


Μονο: 
Μετακινεί το «αντικείµενο — σχήμα» σε νέα ϑέση. 


Сору: 
Nai! Сору (αντιγραφή) του επιλεγμένου «αντικειμένου — σχή- 
µατος» σε νέα δέση. 


Undelete: 
Επαναφέρουµε ένα σχήµα που έχουµε σθήσει κατά λάδος. 


Delete: 

Σθήνουµε ένα σχήμα που έχουµε επιλέξει. 

Τελειώνοντάς το χωρίς Manual σας δίνουμε ένα κατάλογο про- 
γραμμάτων που έχουν δηµοσιευδεί στα προηγούμενα τεύχη καὶ 
ένα άλλο κατάλογο για προγράµµατα που да δέλαµε να δηµο- 
σιευδούν από τη στήλη αυτή. Αν γνωρίζετε κάτι γι αυτά και νομίζε- 
τε πως µπορείτε να γράφετε το δικό σας manual (µε το αζημίωτο 
θέθαια, αµοιθή: 4.000 — 8.000 δρχ.) τότε επικοινωνήστε μαζί µας 
στο τηλέφωνο 3610039. 


Τεύχος Θέμα 

6 Music Svstem 

7 Music System 

8 Ругадеу 

9 Раде таКет 

10 Turbo Compiler, Tasword 
11 Mini Office II 
12 Adranced Art Studio 
13 Dr. Draw 


Προτεινόμενα θέµατα: 

Diskology, С.А.С, Wordstar, Super Calc 2, Master Calc, Dr 
Graph, Laser Compiler, Dr. Logo, Protext και γιατί όχι, ro special 
manual κάποιου παιχνιδιού. 


Amstrad 


Το ΜΟΝΑΔΙΚΟ ΕΛΛΗΝΙΚΟ περιοδικό 


από χρήστες, για χρήστες 


Ώρες γραφείου: Δευτέρα-Παρασκευή 12π.μ.-2μ.µ. 
T ορ Τεχνικές πληροφορίες: Τρίτη, Παρασκευή 5-7μ.μ. 


æ 36.10.039 


Ανάπτυξη 
Προγραμμάτων 


Γιώργος Πάπαρης 
J 


Μέρος 5ο 


Αυτό το µήνα έχουµε τα προ- 
γράμματα που υποστηρίζουν τον 
editor του επεξεργαστή. 


Ας κάνουμε όµως πρώτα ша Ava- 
θεώρηση TOU ті έχουµε δημοσιεύσει 
µέχρι τώρα. 

Τεύχος 10: | – ТЕХТ.СОМ (basic 
πρόγραµµαπου θα φορτώνειτακεί- 
µενα του εξεπεργαστή). 

TEXT.001 Αρχείο µε κώδικα µηχα- 


νής που δίνει χρήσιμες RSX εντο- 
λές (CLR, INSERT, DEL κ.λπ.) 
Τεύχος 11: DEF — SCR.COM (basic 
πρόγραµµα στο οποίο φτιάχνουμε 
το δικό µας σετ χαρακτήρων γιατην 
οθόνη). 

Και τώρα στο Τεύχος 13: W.BAS 

που είναι ο αρχικός loader του επε- 
ξεργαστή. 
ΜΑΤΗΙΧ.ΦΟΒ που εἰναι то bimary 
set χαρακτήρων που περιέχει ελλη- 
νικά, αγγλικά, τονούμενα, control 
χαρακτήρες για τον printer. 


MENU.COM που είναι το menu στο 
οποίο επιστρέφουν όλα τα υποπρο- 
γράμματα και γίνεται η επιλογή £p- 
γασίας. Και τέλος, το ΜΑΚΕΗ͂.ΟΟΜ 
που προετοιμάζειτην οθόνη γιατον 
editor που θα δημοσιεύσουμε στο ε- 
πόμενο τεύχος. 

Πριν ξεκινήσουμε, έχουµε παρα- 
κάτω µια διόρθωση του loader της 
σελίδας 28 στο 100 τεύχος. Διαγράψ- 
τε тіс γραμμές 10 -- 150 και προσθέ- 
στε тоу παρακάτω loader του listing 
1. 


| 20) 
OIIIIIIIIÚIIIIIIIIIÉIII £Ə O9€.LG-C O 30 OPENDUT "d":H=HIMEM- 2102; MEMORY H:CLOSEDUT:ADDR=H+Í 


10 MODE 2:PRINT "This progran generate the ТЕХТ,001 bin 
ary file":PRINT "Please wait... "IPRINT:PRINT 

30 ’ 

30 OPENDUT "d":H=HIMEM- 2002: EMORY H;:CLOSEDUT:ADDR=H+i 
томо: ТМЕММВ= 1000 

40 READ A$:IF А$= "5709р" THEN 120 

50 SUM=0 

bO IF М0" THEN ΑΦΞΘΤΑΤΝΕΦ 128, 03) 

70 FOR N=: TC LEN(A$) STEP 2 

80 BYTE=VAL("R"+MID$ A$, N, 2)):5UM=SUM+BYTE: POKE ADDR, BY 
TE: ADDR=ADDR+!:LN=LN+1 

90 NEXT МҰЗҒА) 4%; 509: =VAL("&"+4$ 

100 IF SUM<$SUM1 THEN PRINT "ERROR AT LINE ";LINENMB:ST 
DP 

110 LINENMB=LINENMB+10:6070 40 

120 SAVE "ТЕХТ, 001", ҚМ LN: PRINT "0, К, ":ЕМ 


10 ΗΕ! 

207101 start progran пи 

3907 ИП 

40 MODE 2:CALL kBCO2:INK {261 1ΝΚ 0,0: РЕМ 1:PAPER 0 
50 SYMBOL AFTER O:LOAD" matrix. scr"' 

80 MEMORY 16300:LOAD"text. 001", 39000:CALL 39000 

70 PUT, 22, 10284, 18479 

80 RUN"menu. сой" 


10 MODE 2:PRINT "This program generate the MATRIX .SCR 
binary file":PRINT "Please wait... ":PRINT:PRINT 


i LN=0:LINENMB=1000 
40 READ A$:IF A$="STOP" THEN 110 
50 SUM=O 


b0 FOR N=1 TD LEN(A$) STEP 2 


70 BYTE=VAL("&"+MID$(A$,N,2));SUM=SUM+BYTE:POKE ADDR, ΒΥ 
TE:ADDR=ADDR+1:LN=LN+1 


80 NEXT N:READ A$: SUMI=VAL("&"+A$) 


90 IF 50М‹ У50М1 THEN PRINT "ERROR АТ LINE ";LINENMB:ST0 
P 


100 LINENMB=LINENMB+10:60T0 40 


110 SAVE "MATRIX .SCR",B,H+1, LN: PRINT "0, К, ":END 
120 ° 


1000 DATA ҒЕС20202550303ЕҒЕҒС0002020С0002018:8:8,077 
1010 DATA 18181818FF03030303030303FF0C:8307E0C18, 349 
1020 DATA 3000FFC3E7DBDBE7C3FF00010306CC7830003C,8F2 
1020 DATA 862303ҒҒ24Е70000002080ҒҒ80200000000206,827 
1040 DATA FF060C0018181818DB7E3C18183C7EDB181818,513 
1050 DATA 18185A3C99DB7E3C1800033343FE6030003C66, 505 
1050 DATA ЕРПВВЕР832205805080805663СҒҒС5СЗЕРС2,010 
1070 DATA СЗСЗЕРЗС7ЕОВОВОЕСЗБЬЗСЗСЬЕСЗОРОВОВ7ЕЗС, BED 
1080 DATA 3C66C3FBDBDB7E3C3C7EDBDBFBC30603C000133,9D4 
1090 DATA 1ECE7B31007EbbbbbbbbbbbbET030303FF0303, 66Р 
1100 DATA 0300FF563C18183C66FF18183C3U1CIC18182C, 50! 
1110 DATA 6660301800:8005С66СЗЕРСТСЗЬЬЗСРЕОВОВОВ, 948 
1120 DATA FBC3C3FFFFC3C3FBDBOBDBFFFFC3C3DFDBDBDB, 1085 
1130 DATA FFFFDBDBDEDFC3C3FF00000000000000001818, 823 
1140 DATA 1818180018006СС6С00000000006СЬСЕЕБСРЕ, 4Е4 
1150 DATA 6С2С00:85Е583С:А7С:80000С6СС:82066С600, 976 
1100 DATA 388258700007000181820000000000002:820,424 
1170 DATA 503018000501802000018500000683СҒҒ3006,278 


14 


Συνεχίζοντας... 

Πληκτρολογείστε το listing 2 και 
σώστετο не то όνομα W.BAS στη õi- 
σκέτα που έχετε και τα άλλα τμήμα- 
τα του επεξεργαστή. Το listing 3 é- 
χει τους απαραίτητους χαρακτήρες. 
Πληκτρολογείστε το και τρέξτε το. 


Oa «δώσει» στο δίσκο ένα αρχείο µε 


L- 


WORD PROCESSOR 7 
пппппппппппппппппппппппппаппппппппппппппп 


Print 
pad 


ппппппппппп 
Move with C 


Save Text. J. S sls a ia e miiia 
r 


ar 
Ed itor Char for 
Downi оаа 

Define parameter... . . . . 


or screen. 
rinte 


in printer.... 


όνοµα MATRIX.SCR. Το listing 4 εί- 
ναιτο menu του επεξεργαστή. Πλη- 
κτρολογείστε το και σώστε το ως 


-ΜΕΝυ.ΟΟΜ στή. 


Τέλος, το listing 5 μακετάρει την 
οθόνη πριν μπούμε στον επεξεργα- 


Υπομονή ως το επόμενο τεύχος 
και θα έχετε το δικό σας word рго- 
cessor! 


1180 DATA 00000018187Е:8180000000000000018:82000,12: 
1190 DATA 00007Е0000000000000000001818000002:820,108 
1200 DATA 80080007008СЕ05Е8057С001828181818:87Е,707 
1210 DATA 005058055200687Е0032880512088652001622,2Ес 
1220 DATA 82ГІРЕОС1Е007Е8250720886216002288807660, 548 
1250 DATA 667С007Е66000С1818:8005С66667С6667С00, 42C 
1240 DATA 2250505Е0858200000018:800:81800000018, 255 
1250 DATA 1800:8182000:8205020: 802000000700007Е,270 
1280 DATA 0900507018001820500022585002:900180076,727. 
1270 DATA СӘОЕПЕ2ЕС2700182255887585500072505576,944 
1280 DATA 5868РГ00328870200003С00Ғ8820505556078,90% 
1290 DATA 00Е8258785882Ғ5200Ғ52520878080070005056, 842 
1300 DATA Г000Е852Е00885555755555Ь8007518181818,082 
1310 DATA 187500202000020С278008868788255Е500,800 
1520 DATA РОБОЬОЬОЬ2ЬБРЕООСБЕЕРЕРЕОЬСЬСЬООСЬЕБРЬ, CBA 
2% DATA рЕСЕСЬСЬООТВЬССЬСЬСЬЬС 58002 7666676060, 906 
1340 DATA Р9002882С8С608С27800255887С8288580020,974 
ἰδοῦ DATA Б6603С06665С207Е5418:8:8:82С0066666666, 486 
1560 DATA 8558200085555555652180008266008ҒЕЕЕС5,924 
1270 DATA 000502282860260,0055556 26 18182200ҒЕ68,738 
1580 DATA 801822555001030105020302С0008020:802,51% 
1190 DATA 080200200С02020С0С220018227Е18:2818:800,:ЕЕ 
1400 DATA 00000000000000ҒҒ2018020000000000000078, 158 
1410 DATA 00702275002080705865660000000052500066, БЕС 
1420 DATA 3200120672СС00007800000032587Е80220016,592 
1430 DATA 5850782020780000002558552Е007250808276,542 
1440 DATA 85805800180028181818200005000Е05085555,272 
1450 DATA 5С50806587882580028181818181830000000,504 
1460 DATA ӨСЕЕТ928080000000С55555885000000305556,758 
1470 DATA 65С0000000С66667С60Р000007СССС7СОСІЕ, БСА 
1480 DATA 0000027880800000000308020087200205072,528 
1490 DATA 3050561С000000666660662Е000000266603С, 3А 
1500 DATA 18000000280808ҒЕ52000000258С5880280000, 890 
1510 DATA 005565455Е0&7000007Ё4[18127Ё000ЕЁ181870,41 

1520 DATA 18180ЕЁ0018181818181818007018180Ё181870, 234 


15 


1530 DATA 00782200000000000020252522202200220304,558 
1540 DATA 2055Ь688520000007Е007Е000000080880000, 446 
8350 DATA 661000050855С10ВЕЕ45007065[00000565000,790 
1550 DATA |87005857Е555000Ғ25800725686Ғ00080808, 907 
2570 DATA 7Е1В822001820000555667500ҒЕ5258780852,85Е 
1580 DATA Ғ200187С0В0В0В87180025280508050700056,8Ғ1 
2590 ТАТА 56667Е6062007Е:8:8:8:8:87Е007Е42003С,4ЕС 
1000 DATA 00427500Е58080788088Е50018200005555660, БРА 
1510 DATA СОСЬСЕРЕРЕОЬСЬСЬООСЬЕБРЬЕСЕСЬСЬО0ЗС66, СВЕ 
1020 ЈАТА 85500886 1600ЕҒ555585555Ь560028 6 ССАС 60, 84 
1820 DATA (60759050580070Ь0007000ҒЕ8220182082ҒЕ00,86Е 
1540 DATA 7Е54:81818182С007ССЬСЬРЕСЬСЬ7СООТССЬСЬ, ВВА 
1550 DATA COCOACEEQOCACOCEDAFEEECAONCALCIBIBACCA, B94 
1550 DATA (8008585852181820007548001850827Е0006, 4A4 
1670 DATA 1007805555500605000:82065020000100000, 669 
1580 DATA 8088200228000С0СЕ852Е00ҒЕ825878888070,88Е 
1890 DATA 9200808787200227500000076С0С22078001Е33, GFF 
1700 DATA 86ЛЕС2027Е0000000808087Е18182080507008,995 
2710 DATA 28720000(02Е8026805Е000000СЕВ0В7Е1818,5ЕС 
1720 DATA 0000С267С6603С00000С660566605000060,547 
2770 DATA 6060605С00301Е301С60603С060000660С786С, 484 
1740 DATA 650070080С1Е3666С2000000ССССССССЕЬС002), 820 
1750 DATA 00С66660С580000007666660570000007Е66, 464 
1760 DATA 566650005083Е603С603Е0000003С6666667С, 442 
1770 DATA 6000003 6666663С0700007Е08:8:80Е003С66, 443 
1780 DATA 241208257000000088220ВҒҒ080000007Е000,702 
1790 DATA 72085200002582282880220000255855565600,566 
1800 DATA 7820802000700810708080800082Ғ500185Е58, 745 
16:0 DATA 2С:47С:В0060000000000000066666666663С, 384 
1820 DATA 1800729999999999СЗҒРЕРЕРЕ2999999СЗЕЕЕҒ, DSF 
1920 DATA BD99ASBDBDBDFFFFFFFFBD99ASBDFFFFCI9D9F,EE3 
1840 DATA РРС ЗРРРРЕРРЕСЗ9ЕЭЕСЗЕРЕЕСЗ99999993С9, ЕА? 
2850 DATA РРРЕРЕСІ9999СІР9РЕРЕС:9Р9РСЗРВЗРЕЕРЕЕ, РЕЗ 
1880 DATA Ci9FC3F982FFFF879399999387FFFFF9F9C199,F4D 
1870 DATA 99СІРЕЕРСЗЕЛЕТЕТЕТСЗРРЕРСЕРРСЕСРСЗЕЗЕЕ, 108Е 


1880 DATA FF839983999983FFFF9F9F83999983FFFFBDBD,D3F 
1890 DATA BDAS99BDFFFFFFFFBDAS99BDFFFFCEOF3F3F333,F30 
1900 DATA 87FFFFF3FFF3F33387FF0303032343FE6020AA, ACD 
1910 DATA 55AA55000000000A050A050A050A0500000000, 190 
1920 DATA AASSAASSA0S0A050A050A050AA54A850A04080, 914 
1930 DATA 00А44552А15040502010102050А152А55АА0080, 520 
1940 DATA 40805088S48AFFDSABDSABDSFF007EFF99FFU3,CB1 
1950 DATA BDFF7E3838FEFEFE10380010387CFE7C381000,872 
1950 DATA óCFEFEFE7C38100010387CFEFE103800FFAASS,930 
1970 DATA AASSAASSFFFFAAFFO000000000000000FFFFFF, 8A2 
1980 DATA FF00066666667E3C1800000000181BFF000055,4ED 
1990 DATA AA55AA550A550A0018181818FF0000030400FF,50C 
2000 DATA 0505ҒҒ009954240303245А9910385838385870,700 
2010 DATA 02618307ЕҒҒ1818181818181818ҒҒ7Е30181030,578 
2020 DATA 70FFFF7030100BOCOEFFFF0OE0C080000183C7E, 652 
2030 DATA FFFF000000FFFF7E3C180080EOF8FEFBE0B000,A7( 
2040 DATA 020ЕЗЕҒЕ3Е0Е02003858927010282828585810,420 
2050 DATA ҒЕ102844823838127090282422585890701228, 54Ε 
2060 DATA 48880052185032501800ҒЕРЕҒЕҒЕРЕРЕРЕ0018,9ҒА 
2070 DATA 1818ҒҒ1818180001010101010101ҒҒ,270 

2080 DATA STOP 


ЮНИИ 

20 ° t МЕМ, СОМ 1 

КМУ 

40 MODE 1:CALL &BCO2:INK {241 ΙΝΚ 0,0:РЕМ 1: РАРЕК 0 

50 LOCATE 1,2:PRINT STRING$(40,CHR$(232));:LOCATE 1,1:P 
RINT " ЖОН) PROCESSOR 7" 

b0 LOCATE 1,24:PRINT STRINGS (40, CHR$ (232) ); 

70 LOCATE 1,25:PRINT"Move with CURSOR KEY-select with 5 
PACE"; 

80 WINDOW 8, 40,8, 20 

90 KEY 128, "0": КЕҮ 129,"1":КЕҮ 150, "2"ιΚΕΥ 131, 53: ΚΕΥ 

132, "4": KEY 133, "5":KEY 134, "6":KEY 135,"7":KEY 136,"8" 
IKEY 137,"@":КЕҮ 138,",":KEY 139, CHR$(13) 

100 DIM A$(20) 

110 A$(1)="Print text,......... 

120 A$(2)="Load Техї.............." 

130 A$(3)="Save Техї........... οι 

140 A$(4)="Merge Техі,,........... $ 

150 A$(S)="Edit Техї............." 

160 A$(6)="Editor Char for screen," 

170 A$(7)="Editor Char for printer" 

180 A$(8)="Download in printera..." 

190 A$(9)="Define рагате{ег......." 

210 FOR 151 TO 12:PRINT a$(i):NEXT 

220 L=5 

230 CALL tBB9C:LOCATE 1,L:PRINT A$(L) 

240 EP$=INKEY$:IF EP$="" THEN 240 

250 IF EP$=CHR$(240) THEN GOSUB 290:L=L-1:60SUB 200: 505 
UB 290 

260 ТЕ EP$=CHR$(241) THEN 505/8 290:L=L+1:5DSUB 300:805 
UB 290 


270 IF EP$=CHR$(32) THEN CALL &BB9C:BORDER 18:FOR stash 


.=1 TO 100:NEXT:BORDER 0:60T0 330 


280 GOTO 240 

290 CALL kBB9C:LOCATE 1, L:PRINT A$(L): RETURN 
300 ІРІСІ THEN L=9:RETURN 

310 IF L)? THEN L=1:RETURN 

320 RETURN 

330 ON L GOTO 340, 350, 360, 370, 380, 390, 400, 410, 420 
340 RUN"PRINT,COM' 

350 АШМ". -ΤΕΧΤ. СОМ" 

360 RUN"S-TEXT. COM" 

370 RUN"M-TEXT. COM" 

380 АШМ" МАКЕЋ, COM" 

390 RUN"DEF-SCR. COM" 

400 RUN"DEF-PRI, COM" 

410 RUN"dlcprint. con" 

420 RUN"detine. con" 


10 ' maker ; 

20 MODE 2:CALL &BCO2:INK 1,26:INK 0,0:PEN 1:PAPER (ШІК 
DOW 180, 1207 ΜΙΝΡΟΝΕ{ 1 8021129109 . 

30 LOCATE#1,1,3 

40 FOR 1-1 ТО 16:PRINT81,STRIN5$(4,CHR$(234)) :PRINTRI, 
CHR$ (234) ; : МЕХТ 

50 PRINT, STRINGS(80,CHR$(235)); : СОСАТЕЖІ, 1, ΔΙΡΑΡΕΒΗ, 
1:PEN#1, 0 

ӘРІМН,І 5 0 15 20 2 5 35 % 
45 50 55 60 5 70 75 80";:РАРЕКЕІ, 0: РЕМ 
1 
% 

70 LOCATE#i,1,1:PRINT#1, STRING$ (80, CHR$ (230)); 
80 LOCATE#1,1,5::PRINT#1, "LINE : 1" 

90 LOAD"det-par. com" 

100 ° define function key 


120 KEY 139, CHR$(21) 1” ENTER= ALLAGH SET XARAKTHRV 
N 

130 KEY 138,CHR$(24) 1 4.) = CONTROL CHARACTER FO 
`R PRINTER I 
140 KEY 128.γΗΚ6128᾽ 1’ (10) 
150. KEY 129,CHR$(1) (#1) 
160 KEY 130,CHR$(19) τ’ (2) 
170 KEY 151, ζΗΒ8{4) 1 45) 


TONOS 

ARISTERO PERIUVRIO 
STADAR PERIUVRID 
DEJIO  PERIUVRIO 


180 KEY 132,CHR$(27) 1’ (f4) = ANDIGEI PARAGRAFO 
190 KEY 133, CHR$(22) τ’ (45) = METAFORA PARAGRAFDY 
200 KEY 134, ζΗΒ8 (29) ' (fb) = KLEINEI PARAGRAFO 
210 KEY 155, CHR$ (30) " (47) = AUTO INSERT CHARACTE 


R 

220 KEY 136, CHR$(31) 1’ (fB) 
230 KEY 137, СНАФ (6) 1; 9) 
240 ) 

250 RUN"TEXT-EDT. СОМ" 


AUTO SOUNDEND BOARD 
AUTO FORMAT LINE 


O Word Processor που παρου- 
σιάζεται από αυτή τη σειρά διατίθε- 
ται και από το γραφεία του περιοδι- 


κού στην τιµή των 1.700 δρχ. 
Για περισσότερες πληροφορίες: 


Μπόταση 9, бос όροφος, Δευτέρα - 
Παρασκευή: 10-2 μ.μ. και Τρίτη, 
Παρασκευή: 5 — 7 μ.µ., τηλ.: 3610039. 


ΨΗΦΙΑΚΗ 


ROM SOUND: ξαναζωντανέητε τα παλιά σας παιχνίδια 
στον SPECTRUM έχοντας ήχο από την τηλεόραση 
Δρχ. 1.500 


ROM DRIVE 8”: Για Amstrad δρχ. 25.000 και 
SPECTRUM δρχ. 28.000 χωρίς controller 


Καλώδια επέκτασης Amstrad: για να προστατέµετε τα рата σας 
(μεταφέρει το πληκτρολόγιο µακριά από την οδόνη) 
Δρχ. 1500 


Καλώδιο επέκτασης του jovstick: για καλύτερα παιχνίδια 
Δρχ. 600 


Kemston compatible interface: µε ενδεικτικά λαμπάκια για να 


ξέρετε κάθε στιγµή τι γίνεται Δρχ. 3500 
Παρέχεται service στα μηχανήματα Και όλα αυτά µε την ποιότητα και την εγγύπση της ROM 


ROM ΨΗΦΙΑΚΗ: ΣΟΥΛΤΑΝΗ 19 – Τηλ.: 3643636 


COMPUTER SHOP 


рс СЕМА 


СРС ΘΕΜΑ --Σχεδιασµός χαρακτήρων 


Το πρόγραµµα αυτό δημιουργεί χαρακτή- 
ρες από µια εικόνα που έχουµε σχεδιάσει σε 
κάποιο τµήµα µιας screen από οποιοδήποτε 
πρόγραμμα σχεδίασης ка! τους σώζει το πρό- 
γραμμα, καδώς και ша ρουτίνα поо тоос TUNO- 
νει δημιουργώντας την εικόνα. Το πρόγραµµα 
αυτό µας απαλλάσσει апо το κουραστικό σχε- 
δίασµα χαρακτήρων όταν αυτοί χρειάζονται 
για να ὃπμιουργηδούν µια οποιαδήποτε εικό- 
να (π.χ. ανδρωπάκια, διαστημόπλοια). Ας τα 
δούµε όµως αναλυτικότερα. Το πρόγραµµα έ- 
χει τρεις επιλογές. H πρώτη µε то όνοµα LO- 
AD SCREEN µας καλεί να δώσουμετο όνοµα 
της SCREEN που δέλουµε να δουλέμουμε. 


Κατόπιν то MODE στο οποίο είναι σχεδιασµέ- 
vn. Αφού δώσουμε αυτά, φορτώνει την screen. 
H δεύτερη επιλογή µε το όνοµα DESIGN 
CHARACTERS είναι το µεγαλύτερο µέρος 
του προγράµµατος. Καλώντας αυτή την επιλο- 


10 IEE IEAA HEEE RHH 
207% PROGRAM 448 
50 `### ΒΥ JIMMY ΜΙΘΟΥΒΑ ### 
40 ЮИИНИИИМИНИЯНЫНЫНННННИЯ 
50 MEMORY 24999 

60 ΡΕΕΙΝΤ a-z 

70 MODE 2 

80 GOSUB 1210 

90 a$(1)="Load screen" 

100 A$(2)="Design character" 
110 A$(3)="Exit " 


120 MODE 2:WINDOW #1,27,50,14,16:PAPER #1,1:PEN #1,0 


150 WINDOW #82,1,80,2,2:W!NDOW 1,80,2,25 
140 BORDER 12 

150 CLS :A$="MENU":GOSUB 1350 

160 CLS #1:GOSUB 1300 

170 GOSUB 1490 

180 FOR Ізі 70 3 

190 PRINT #1,А% (1) 

200 NEXT 


210 LOCATE 24,20:PRINT "Use "+CHR$(241)+" "+CHR$ (240) +" 


220 LOCATE 26,21:PRINT "then <RETURN> " 

230 i=1:LOCATE #1,1,1:PRINT #1,a$(1); 

240 mes$=" ВҮ JIMMY MISOYRA " 

250 FOR о=1 ΤΟ 31:LOCATE 24,5 

260 LOCATE 24,5:PRINT MIDS (mes$, ο, 36) 

270 LOCATE 55-0,5:PRINT МІ0% (mes$, 1,0-1) 

280 FOR k=1 TO 200:NEXT 

290 i$=INKEY$:IF i$<>CHR$(13) AND i$<>CHR$ (240) 
AND i$<>CHR$(241) THEN 300 ELSE 310 

500 NEXT:GOTO 250 


310 IF I$=CHR$(240) AND I>1 THEN LOCATE #1,1,I:PRINT #1,A$(1I);:I=I-1:LOCATE 


81,1, ΠΗΡΑΙΝΤ #1, "X"; 
ASID; "X"; 


γή, µας εμφανίζειτην screen που έχει φορτώσει 
µε την προηγούµενη επιλογή, καθώς και ένα 
cursor. Τον cursor αυτό μπορούμε να τον µετα- 
κινήσουμε µε τα θέλη -- — σε όποιο pé- 
ρος της οθόνης ϑέλουμε. [Πηγαίνοντας τον 
cursor σε ένα σηµείο mç οδόνης και πατώντας 
το СОРҮ, επιλέγουμε το ένα άκρο του παρα- 
δύρου που µέσα σ αυτό υπάρχει το σχέδιο που 
δέλουµε να δημιουργήσει σε χαρακτήρες. 
Χρησιμοποιώντας πάλι τα θέλη μορφώνουμε 
ένα παράϑυρο не тіс διαστάσεις που εμείς δέ- 
λουμε. Αφού δώσουμε στο παράϑυρο την no- 
ϑητή μορφή, πατάμε πάλι ΟΟΡΥ. Έτσι έχουµε 
επιλέξει το τµήµα της οδόνης που δέλουµε να 
δημιουργήσει σε χαρακτήρες. Καδώς γίνονται 
όλα αυτά, μπορούμε πατώνταςτο “CONTROL” 
+“I“ va έχουμε κάποιες πληροφορίες για то 
πού θρίσκεται о cursor στην οδόνη. Επίσης, 
πατώντας то DEL, ακυρώνουμε то σημείο του 
παραδύρου που έχουµε επιλέξει. Πατώντας 
“CONTROL: + “I“ εγκαταλείπουµε την επιλο- 
γή και γυρνάµε στο κύριο MENU. Αφού επιλέ- 


čovpe το παράδυρο, µας ζητάει να δώσουμε 
το ink του FOPEGROUND ή του ВАСК- 
GROUND για να μπορέσει να αρχίσει τη σχε- 
δίαση των χαρακτήρων. “Ара δώσουμε το ink 
του Foreground όλα τα άλλα ink δεωρούνται 
background. Το αντίστοιχο ισχύει ана δώσου- 
με το ink του background. Κατόπιν το πρό- 
γραμμά µας ζητάειτον ASCII από όπου да ap- 
χίσει να επανακαδορίζειτους χαρακτήρες. Me- 
та το буора µε то οποίο да σωδεί το 
πρόγραµµα ..... των σχεδιασµένων χαρακτή- 
ρων, µπορεί να έχει µηκος μέχρι 8 χαρακτήρες 
και δεν πρέπει να περιέχει τελεία. Αφού δώ- 
σουµε όλα αυτά, σώζει το πρόγραµµα και eni- 
στρέφει στο κυρίως MENU. H τρίτη επιλογή 
µετο όνοµα ЕХІТ µας θγάζει έξω από το πρό- 
γραμμα. 

Γιανατρέξουμετοπρόγραμμα,το µόνο που 
έχουµε να κάνουμε είναι να θάλουμε το χ και 
το у στη δέση των ερωτηµατικών τη στήλη και 
τη γραμμή αντίστοιχα που δέλουµε να τυπωδεί 
n εικόνα που είχαμε επιλέξει. 


IF 1%=СНАФ (241) AND Υ}1 THEN Y=Y-2:IF i$=INKEY$ THEN 640 ELSE 60808 1360 


IF I$=CHR$(240) AND Y<398 THEN 
AND х20 THEN x 
638 THEN 


IF_I$=CHR$ (242) 

O IF I$=CHR$(243) AND x 
IF I$=CHR$(127) THEN F 
IF I$=CHR$(224) THEN X 
IF I$=CHR$ (9) 
IF I$=CHR$(5) THEN RET 
WEND 


1 Y1 


URN 


y+2:IF i$=INKEY$ THEN 640 ELSE GOSUB 1360 

DM:IF i$=INKEY$ THEN 640 ELSE GOSUB 1360 
DM:IF 1ΦΞΙΝΚΕΥΦ THEN 640 ELSE GOSUB 1760 

1:IF i$=INKEY$ THEN 640 ELSE GOSUB 1560 


THEN GOSUB 1500 


WINDOW #3, ІМТ ((2^М0ж20) /2-8), INT ((2^M0420)/2+8),10,12:PAPER #3,1:PEN #3,0:CLS #3 


PRINT #3,"INK (F)orego 
PRINT #3,"or (B)ackgroi 


1ΦΞΙΝΚΕΥΦ:ΙΕ UPPERS (1%) 


CLS #3 


und" 
und” 
"В" 


АМО ЦРРЕЋ$ (1%) < >"Ғ" THEN 680 


IF ЦРРЕКФ (1%) ="В" THEN INPUT #3, "Епіег ink background ",BG 


IF ШРРЕАФ (1%) ="Ғ" THEN INPUT #5, "Enter 


"Redefines ch 


ar. from 
RC>255 THEN 720 


1:60SUB 1450 


DIM PIN(200,8).C$(2S) 
' to choose" 


ΜΕΤΞΟ 
FOR 1150 TO 7 
50=0 
FOR 1=0 το 7 


:5К0% 
XC=INT(((((XS1-XS)/DM)) ы 
FOR 1Ү-0 ΤΟ ҮС-1:ҒОК 1Х-0 ΤΌ ХС-1 


nk foreground ",FG 


ascii) :",RC 


2))/8)+0.9) 


ТХ=8х1Хжот+ (0МЖІ) +Х5: ТҮ=Ү51- (1Үж8ж2+(2%11)) 


Р=ТЕЅТ (ТХ, ТҮ) 


IF TX>XS1 ОК ТҮ<Ү5 THEN GOTO 900 


860 IF GRD$= 


890 NEXT 
MET=MET+SU 


320 IF I$=CHR$(241) AND I<3 THEN LOCATE #1,1,I:PRINT #1,A$(D;:I=I+1: 910 PIN((IY*XC)+IX+1-K,II)=SU 


LOCATE #1,1,1:РВІМТ #1,"X"; 
АФ (1); "X"; 


350 IF 1%=СНАФ(15) THEN ΟΝ і GOSUB 360, 490,350: 6070 120 950 


340 БОТО 500 

350 !:ВАЅІС 

560 CLS:A$="LOAD SCREEN":GOSUB 1350 
370 LOCATE 1,1:CAT 

580 INPUT "Enter пате of screen :",0% 
390 INPUT "Enter mode t", mo 

400 IF по<0 OR m>3 THEN 390 

410 MODE mo 

450 LOAD 0%,%С000 

440 CALL 25500,0 

450 ΜΩΡΕ 2 

470 PIC=1 

480 RETURN 

490 IF РІС<21 THEN RETURN 

500 MODE MO:CALL 25500, 1 


510 Іф="":Р=0:Х1=-1:Ү1=-1:Х=520: Ү=200:0М=ҒІХ (4-1. 5%то) 


. 520 IF ІФ=СНА$ (59) THEN RETURN 
550 GOSUB 1560 
540 WHILE Р<›2 
550 I$=INKEY$:FOR ka=1 TO 20:МЕХТ 


920 NEXT 


" АМ Ғ-Ғб THEN 5Ш=50+2^(В-(1+1)) 
870 ΙΕ БК0%="В" AND Ғ< 286 THEN SU=SU+2 
880 PLOT ΤΧ.ΤΥ.1:ΡΙΟΤ ТХ,ТҮ,0:Р10Т7 TX,TY,F 


(8-(1+1)) 


IF МЕТ=0 THEN К-К»1:С%(1Ү)-С%(1Ү) +СНАФ (34) +" "+CHR$ (34) 


WHILE МЕТ=2040 
МЕ=МЕ+1 


360 IF МЕ<21 THEN СФ (ІҮ) =С% (1ү) +СНЯФ (54) +СНЕФ (OLD) +СНАФ (34): К=К+1: МЕТ=0 
970 IF МЕ=1 THEN О.р= (ІҮЖХС) +1Х+1-К+АС: МЕТ=1 


980 WEND 


990 IF МЕТ<20 AND МЕТ‹ 22040 THEN С (ІҮ) =С% (ІҮ) +СНАФ (34) +СНАФ 


((IY*XC)+IX+1-K+RC)+CHR 
1000 NEXT:NEXT 


6(24) 


1010 CLS #3:INPUT 92, "Επεεγ filename of program (1-B)ch. :",FM$ 
1020 IF LEN(FM$)<1 OR LEN(FM$)>8 THEN БОТО 1010 


1050 FM$=FM$+".prg" 
1040 OPENDUT FM$ 


1050 a$="2 '### PROGRAM ΒΥ JIMMY ΜΙΘΟΥΒΑ ###":PRINT 89,0% 
1060 a$="4 ΜΩΡΕ "+STR$(MO):PRINT #9,A$ 
1070 PRINT #9, "ὁ SYMBOL AFTER "+STR$(RC) 


1080 FOR KL=1 TO ХСЖҮС-к 


1090 A$=MID$ (5ТКФ (КІ #10), 2,_ЕМ(БТЕФ (К Ж10))) +" SYMBOL "+STR$(KL+RC) 
1100 FOR 11=0 το 7:A$=A$+", "+RIGHT$ (ТАФ (РІМ (КІ, II)),LEN(STR$(PIN(KL,II)))-1) 


1110 МЕХТ:РАІМТ #9, А%:МЕХТ 
1120 А%=5ТЕФ (К1%10) +" 


:GOSUB 2000":ΡΑΙΝΤ #9,A$ 


..ГТА ΣΕΝΑ 


που δέλεις έναν AMSTRAD 


..ГТА ΣΕΝΑ 


που έχεις έναν AMSTRAD 


COMPUTER ПА ΣΕΝΑ 


Το ειδικό κατάστηµα και 


γα AMSTRAD 


AMSTRAD 1640, 1512, 6128, 464 
σε καταπληκτικές τιµές!!! 


Επιπλέον: 
— Περιφερειακά 
- Χιλιάδες Προγράμματα!!! 
- Εκατοντάδες θιθλία 


COMPUTER ПА ΣΕΝΑ 
sss” - 


Ἔα n 
Опо абпуа Өпоєшс Προοπειριας 


ы 


owa t 
καραντινου 


Οι ειδικοί στα Computers 


Θησέως 140, 3ος ὀροφος, Πλατεία Δαβάκη, Καλλιθέα, TNA.: 95.92.623-95.92.624 


ΔΕΧΟΜΑΣΤΕ ΠΑΡΑΓΓΕΛΙΕΣ ΚΑΙ ΑΠΟ ΤΗΝ ΕΠΑΡΧΙΑ 
ΠΩΛΗΣΗ: ΧΟΝΔΡΙΚΗ-ΛΙΑΝΙΚΗ. 


Δημήτρης Μισούρας 


1150 ñ$=STR$(k1#10+10)+"END":PRINT 49,4% 1400 GX=(I+1) #DM:GY=2¥ (1+1) :MOVER -GX,GY:DRAW Х+5Х,Ү+БҮ, і: ААМ X+GX,Y-6Y, i: 


1140 FOR Із0 TO ҮС-1 
-GX , Y-GY , і: DRAW 
1150 А%=5ТА% (2000+10%1) +" LOCATE X,Y+"+STR$(I)+":PRINT "+C$(I):PRINT #9,A$ DRAN X=6X,Y=6Y τὸ 


1160 NEXT X-6X, Y+GY, i 
1170 А$=5ТВ%(2000+1%10)+" RETURN" :PRINT #9, ΑΦ 1410 NEXT 


1180 CLOSEOUT 1420 RETURN 
1190 ERASE pin,C$ 1430 IF X<X1 THEN XS=X:XS1=X1 ELSE XS=X1:XS1=X 


1200 RETURN 1440 IF Y<Y1 THEN YS=Y:YS1=Y1 ELSE YS=Y1:YS1=Y 
1210 MEMORY 25499 1450 FOR 150 TO 1: u 
1220 RESTORE 1460 ΚΧΞ (1+1) ΑΡΗ: ΚΥΞ (121) 42:М0УЕ XS-KX, YS-KY,, I: 
1230.FOR 1=25500 TO 25500455 DRAW XS1+KX,YS-KY,I:DRAW XS1+KX,YS1+KY,I:DRAW XS- 
1240 READ 45 KX, YS1+KY, I:DRAW XS-KX,YS-KY,I 
1250 POKE I,VAL ("k"+A$) 1470 NEXT 
αν. ο. 
=1 TI ΣΜΟΝΙ I,1:DRAW I,400-I,1:DRAI 40-1,400-1,1 
1280 DATA ҒЕ,01,0,00,7Е,00,ҒЕ,00,28,0С,11,00,60,21,90,45,01,00,40,Ер,В0,09 шалды Е МЕКА ду μη ας. , 
1290 DATA 11,90,05,21,00,С0,01,00,40,Ер,В0,С9 : ιά коз е 
1300 ’ 1500 WINDOW #5, INT ( (2^М0420) /2-9) , INT ( (2^М0%20) /2+10),9,12:РАРЕК 
1510 MOVE 170, 300, 1:DRAW 170,340,1:DRAW 440, 540, 11ὈΒΑΝ 440, 500, 1: КАМ 170,300,1 #3, 1:PEN 83,0:CLS #3 
1320 LOCATE 24,4:PRINT " PROGRAM DESIGN CHARACTER" 


1330 LOCATE 24,5:PRINT " BY JIMMY MISOYRA" 1510 IF F=0 THEN PRINT #3," X , Y :";X;Y:6GOTO 1540 
1340 RETURN 1520 PRINT 45, "SELECT 1:";X1;Y1 


"RETURN 1530 PRINT #3,"X , Y : "3 XS; YS1 
1360 CALL 25500, 1 1540 PRINT #3," PRESS ANY KEY" 
1370 IF F=1 THEN GOSUB 1430:RETURN 1550 CALL &BB18:CALL 25500, 1 
1380 FOR i=0 TO 1 1560 GOSUB 1560:ΒΕΤΗΒΝ 


1590 MOVE x.v 


МЕСОЛРІЛЕК 


ΤΗΛ. 49.21.600 


e ΕΤΟΙΜΑ ΕΠΑΓΓΕΛΜΑΤΙΚΑ 
ΠΡΟΓΡΑΜΜΑΤΑ 


ΥΠΕΥΘΥΝΗ ΕΝΗΜΕΡΩΣΗ 
ПА ΣΩΣΤΕΣ ΕΠΙΛΟΓΕΣ ΚΑΙ 


Έχετε то y 
u ΕΦΑΡΜΟΓΕΣ 


πρόθλημά 
š ΠΛΗΡΗ ΠΑΚΕΤΑ ΜΗΧΑΝΟΡΓΑΝΩΣΗΣ 
του, д тг = ' ΠΛΗΡΗΣ 


ΜΗΧΑΝΟΡΓΑΝΩΣΗ 


ΒΙΟΤΕΧΝΙΩΝ 
ΙΑΤΡΕΙΩΝ ΟΛΑ ΤΑ ΠΡΟΓΡΑΜΜΑΤΑ 
ТТІ E ΜΗΧΑΝΙΚΩΝ ТЕСНМО5ОҒТ 
Εγουµμε τι ннанка koa 
' VIDEO CLUBS CIVILDATA 
ΚΑΤΑΣΤΗΜΑΤΩΝ ΠΛΗΡΟΦΟΡΙΚΗ 


πὶ 
ле ПРО-ПО 
в 


ло! U О ы С 262 | I ΕΣ ΗΝ Μπι ΕΙΔΙΚΩΝ ΠΕΡΙΠΤΩΣΕΩΝ 


ΕΠΑΓΓΕΛΜΑΤΙΚΑ ΣΥΣΤΗΜΑΤΑ AMSTRAD PC 1640, 1512 


ΗΛΕΚΤΡΟΝΙΚΟΙ 
ΥΠΟΛΟΓΙΣΤΕΣ 


ДЕ COMMODORE 
PHILIPS MSX 


AMSTRAD 


ΕΚΤΥΠΩΤΕΣ 
ΒΙΒΛΙΑ 
MONITOR 
ΑΝΑΛΩΣΙΜΑ 
ΠΑΙΧΝΙΔΙΑ 


Νέοι και νέες 
Όλοι σκεφτόμαστε 
το µέλλον.᾽ 


Για µας: 
ΜΕΛΛΟΝ = ΠΛΗΡΟΦΟΡΙΚΗ 


Ελάτε να σας θοπδήσουµε 
να την κατακτήσετε σωστά 


ΤΑΞΙΝΟΜΗΣΗ ΠΡΟΓΡΑΜΜΑΤΩΝ 


Το πρόγραµµα αυτό βρίσκει τους κατάλληλους συνδιασμούς про- 
γραμμάτων ανάλογα µε τα µήκητους σε Κέτσι ώστενα χωρέσουν akpi- 
βώς στον ελεύθερο χώρο µιας δισκέτας. 

H εφαρµογή εἶναι πολύ πρωτότυπη και χρήσιμη αφού εξοικονοµεί 
ελεύθερα Kbytes από διάφορες δισκέτες µας στο έπακρο. 


Του Μιχάλη [Ιωαννίδη 


Το πρόγραµµα καλύπτεται απὀ οδηγίες που τις εμφανίζει στην οθό- 
νη αν θελήσουμε (ηλεκτρονικό manual). 


50°, PROGRAM CLASSIFIER 

70 SYMBOL AFTER 250: МЕМОКҮ 24999;6DSUB 1280 'MACHINE CO 
DE 

80 ІМК O,1:INK 1,22:PEN 1:PAPER 0:BORDER 0 

90 om=0:sec$="":60SUB 740:60SUB 1490 

100 KEY 9, "o"+CHR$(13)+"178"+CHR$(13) ° DEFAULT 

110 ON BREAK 60508. 1730:MODE 2:LOCATE ὁ,21ΡΑΙΝΙ " М 
SAS "sec$"DEIJV TIS ODHGIES ;"sir$="":WHILE r$="":r$=] 
NKEY$: WEND 

120 IF r$="o" OR r$="0" THEN PRINT " OXI":FOR del=0 TO 
70:МЕХТ:60Т0 150 

130 IF r$é>"n" AND r$<ò"N" THEN 110 ELSE PRINT " NAI":P 
RINT:60SUB 890 ’ INSTRUCTIONS 

140 БОТО 100 

150 DEFINT a-z:CLS 

160 INPUT "ELEYUEPA Kbytes ";fr 

170 IF fr<=0 THEN 160 

180 PRINT:PRINT "BPACTE ΤᾺ ONONATA ΚΑΙ ΤΑ ΜΉΚΗ TVN RPOG 
PAMMATVN": PRINT 

190 DIM a$(16):DIM a(16):DIM c$(100) 

200 x=0 

210 хау" 

220 PRINT "АРОБРАММА "х" ONOMA = ":LOCATE 23,ҮР05(%0)-! 
Σ9ΥΜΡΟΙ. AFTER 256: ΙΝΡὺΤ ;"",а$(х) : 60508 740 

230 IF a$(x)="" THEN PRINT CHR$(13);SPACE$(40):60TO 260 
ELSE INPUT " MHKOS = ",a(x) 

240 IF а(х)<=0 OR a(x))255 THEN PRINT CHR$(11)CHR$(18)C 
HR$(11):6070 220 

250 IF x(15 THEN 210 ELSE x=x+1 

260 mafi=x-1:nacoab=2^aafi-1:PRINT:PRINT "UA EJETASV";a 
acomb; "SYNDYASMOYS" 

270: 

280 ” data οἱ mashine code 

290 ) 

300 FOR p=1 TO mafi:POKE 14499+р, гр) :МЕХТ 

310 frl=fr MOD 256: #еһ= (#г- #1) /256 

520 aacoabl=aacoab NOD 256: васовБћ= (васовь-аасоаЬ! ) /255 
350 POKE 13000, #71: РОКЕ 13001, #гһ:РОКЕ 14000, пасоиЬ1:РО 
КЕ 14001, васоарһ 

340 ’ 

350 ’ 

360 SOUND 2, 5001ΡΗΙΝΤΙΡΑΙΝΤ "SKERTOMAI";:CALL 25000 

370 IF РЕЕК(14001)-255 THEN 410 

380 combno=zPEEK(14000)+2564PEEK1(14001) 

390 combno$=BIN$ (combno+32749) 

400 GOTO 430 

410 SOUND 2,40:PRINT CHR$(13)CHR$(24) "DEN MROPV МА BPV 
SYNDYASMO"CHR$ (18)CHR$ (24) СНАФ (13) :60ТО 570 

420 ' 

430 ° PRINT FILES 

440 ) 


450 PRINT CHR$(13)"BPHKA 1! "i0m=0a+1:PRI 


NT STRIN5$(30,"-") 

400 SYMBOL AFTER 256 

470 FOR үзі TÜ mafi 

480 IF VALIMID$(combno$,17-y,1))=1 THEN PRINT a$(y)" ' 
a(y)"k'uct(om)=c$(om)+CHR$(y) 

490 NEXT у 

500 6058 740 

510 PRINT STRING$(30,"-")sPRINT "DI SYNDYASMDI ROY EMEI 
NAN EINAI";combno:IF combno=0 THEN 570 

520 SOUND 2,100:PRINT:PRINT "NA CAJV KAI GIA ALLON SYND 
ҮАЅМО ;"; 

530 CALL &BB03 

540 r$="":WHILE r$="":r$=INKEY$: WEND 

550 IF r$="N" OR r$="n" THEN SOUND 1,500:PRINT " NAI": 

PRINT:PRINT "JANASKERTOMAI";:CALL 25000:6070 370 

560 IF r$="o" OR r$="0" THEN PRINT " 0Х1":6070 570 ELS 
E 540 

570 IF DM>O THEN PRINT "UELETE NA SAS JANADEIJV TIS OMA 
DES TVN RPOGPAMMATVN ;";ELSE 580 

580 R$="": WHILE R$="":r$=INKEY$;: WEND 

990 IF r$="N" OR r$="n" THEN PRINT " NAI":FOR DEL=0 TO 
1000: МЕХТ: 5077 210 

b00 IF r$="0" OR r$="o" THEN PRINT " OXI":5DTO 5В0:Е15Е 
5070 580 

610 CLS:WINDOW #1,1,80,1,22:WINDON #2, 1,В0, 23,25 

b20 CLS #2:LOCATE #2,8,2:PRINT #2,"BPHKA "OM" OMADES RP 

DBPAMMATVN ROIA ΝΑ SAS DEIJV ; ";:INPUT #2,'*,0М5% 

630 IF oms$="" THEN CLS:LOCATE &,25:Б0Т0 570 ELSE oms=V 

AL (oas$) 

640 IF ΠΜ5{1 OR OMS>OM THEN 820 

850 PRINT #1, STRING$(40,"-") 

860 FOR t=1 TO LEN(c$(oms)):PRINT #1, а$ (АС(М10$ (c$ (ons 
Jat, 1) )) a (ASC(MIDS(c$(oms),t,1))):NEXT 

670 PRINT #1, STRING$(40,"-"):60T0 820 

880 PRINT CHR$(24)" UELETE NA JANATPEJETE TO RPOGPA 
ММА ;";СНАФ (18); 

890 r$="":EI WHILE r$="";r$=INKEY$:WEND 

700 ІР r$="N" DR r$="n" THEN PRINT " NAI"CHR$(24):CLEAR 
:БОТО 100 

710 IF r$='o" OR r$="0" THEN CALL 0 

720 6070 690 

750, 

740 ’ΒΒΕΕΚ CHARACTERS 

750, 

760 SYMBDL AFTER 35 

770 SYMBOL 71254, 58, 96, 96, 96, 36, 240,0 

780 SYMBOL 68,24, 60, 102, 102, 102, 102, 126, 0 

790 SYMBOL 85, 124, 138, 198, 254, 198, 198,124,0 

800 SYMBOL 76,24, 60,102, 102, 102, 102, 102,0 

810 SYMBOL 74,258, 130,0, 56, 0, 130, 254, 0 

820 SYMBOL 82, 254, 108, 108, 108, 108,108, 108,0 


22 


830 SYMBOL 83,254, 102, 48, 24, 48, 102,254,0 

840 SYMBOL 70,24, 129, 213, 219, 126, 28, 00, 0 

850 SYMBOL 87,195,219,219,219,125,24,00,0 

850 SYMBOL B6, 124, 198, 138, 198, 198, 108, 238 

870 RETURN 

880 ’ 

890 'INSTRUCTIONS 

900 ' 

910 FOR del=0 TO 500:NEXT:CLS:RESTORE 980:b=0:sec$="JAN 
ШШ 

920 FOR аз) TO 21 STEP 2 

930 READ a$:LOCATE 4, а:РАІМТ SPACE$(70):LOCATE 4, А:РАТНТ 


940 МЕХТ 

950 LOCATE 20,24: РВІҢТ "RATEISTE ЕМА RLHKTPD" 

960 CALL kBBO3:CALL 8806 

970 b=b+1;:IF 8-3 THEN RETURN ELSE 920 

980 DATA " ΕΙΜΑΙ ΕΝΑ КРОБРАММА ROY SAS ERITPEREI ΝΑ LY 

SETE MAUHMATIKA" 

990 DATA "RPOBLHMATA SAN TO RAPAKATV :" 

1000 DATA "" 

1010 DATA "DINETAI O FYSIKOS APIUMOS А ΚΑΙ ЕМА SYNOLO R 
OY REPIEXEI K FYSIKOYS' 

1020 DATA "ΑΡΙΙΝΠΥ8, IHTEITAI МА BPEUDYN DLA TA YROSYNO 
LA ΤΟΥ ΑΡΧΙΚΟΥ SYNOLOY' 

1030 DATA "TVN OROIVN ТА МЕЕН ΝΑ ΕΧΟΥΝ SE KAUE YROSYNOL 
0 AUPOISMA ISO ME А" 

1040 DATA " EIDIKH REPIRTVSH АҮТОҮ ΤΟΥ RPOBLHMATOS E 
ΙΝΑΙ TO ΝΑ BPEUOYN ΤΑ" 

1050 DATA "RPOGPAMMATA ROY ΤΑ ΜΉΚΗ TOYS ΕΧΟΥΝ AUPDISM 
А 150 МЕ 178 DHLADH' 

1060 DATA "ISO МЕ ТА Kbytes ROY ΧΝΡΑΕΙ Н ΑΡΕΙΑ ΒΙΕΥΡΑ 
MIAS DISKETAS," 

1070 DATA "ME ALLA LOGIA SAS DEIXNV ROIA КРОБРАММАТА 
XVPANE AKPIBVS SE NIA" 

1080 DATA "DISKETA." 

1090 DATA " MOLIS TELEIVSOYN OI ODHGIES UA SAS ZHTHSV 

ΝΑ EISAGETE ΤΩΝ APIUMO' 

1100 DATA "TVN ELEYUEPVN Kbytes ROY STIS ADEIES DISKET 

ES (data format) ΕΙΝΑΙ" 

1110 DATA "ISOS ME 178." 

1120 DATA "META UA EISAGETE TA ONOMATA KAI TA NHKH TVN 
RPOGPAMMATVN. 0 APIUMDS" 

1130 DATA "TVN RPOGPAMMATVN DEN RPEREI NA ΕΙΝΑΙ MEGALY 
TEPOS АКО 15, GIA ΝΑ" 

1140 DATA "STAMATHSETE THN EISAGVGH TVN RPDBPAMMATVN 
RATEISTE TÜ [return]" 

1150 DATA "XVPIS NA DVSETE ONOMA RPOGPAMMATOS. AN RATEI 
SETE TO [return] OTAN" 

1140 DATA "SAS ZHTAV ТО MHKOS ENOS RPOGPAMMATOS TOTE 
UA 545 JANAZHTHSV Т0" 

1170 DATA "ONOMA AYTOY TOY КРОБРАММАТОЅ, " 

1180 DATA "","" 

1190 DATA " TIS OMADES TVN RPDBPAMMATVN МЕОРЕТТЕ МА 
TIS JANADEITE ОТАМ UA" 

1200 DATA "STAMATHSV МА САХМУ GIA SYNDYASMDYS, TOTE ША 
SAS PVTHSV КОТА OMADA" 

1210 DATA "МА ЦЕ ЕТЕ МА ΡΕΙΤΕ, 
PIUMO THS OMADAS. " 

1220 DATA "ΒΙΑ МА STAMATHSV МА DEIXNV TIS OMADES ВАТЕІ5 


ARANTHSTE DINONTAS TO А 


TE TO [return] XVPIS" 

1230 DATA "NA DVSETE APIUMO," 

1240 DATA " 5115 YROLDIRES EPVTHSEIS MOY ARANTATE M 
E NAI H OXI RATVNTAS" 

1250 DATA "ANTISTOIXA ТА RLHKTPA [NJ ΚΑΙ [0].' 

1250 DATA ΜΙ Wa wa 

1270” 

1280 ' machine code 

1290 ) 

1300 RESTORE 1330 

1310 FOR х=25000 TO 25090:READ a:POKE х,а: МЕХТ 

1320 RETURN 

1330 DATA 245,197,213,229,221,229 

1340 DATA 237,75,178,54,22,0 

1350 DATA 120,177,194,189,97,5 

1360 DATA 195,241,97,33,0,0 

1370 DATA 30,8,221,33, 164,56 

1380 DATA 203,9, 220, 252,97,221 

1390 DATA 35,29,194,198,97,30 

1400 DATA 8,203,8,220,282,97 

1410 DATA 221,35,29,194,211,97 

1420 DATA 11,221,33,200,50,221 

1430 DATA 126,0,189,194,180,97 

1440 DATA 221,126,1,188,194,180 

1450 DATA 97, 237,67,176,54,221 

1460 DATA 225, 225,209, 195, 241, 201 

1470 DATA 213,221,94,0, 25, 209 201 

1480 ’ 

1490 ’ screen 

1500 ’ 

1510 ЕМУ 10 159-115 

1520 МОЈЕ 1:Τ46 

1530 0%= "ТАЈ ІМОМНЗНАРОБРАММАТУМ" 

1540 FOR іг! TO 10 

1550 a$=MID$(D$,i,1):WINDON #1,194-3, 40,12,12 

1520 ENT 1,60-і,2,1 

1570 SOUND 130,50, (12-1)#6,10,,1 

1580 FOR d=640 TO 1164-48 STEP -16:MOVE ὁ, 220: 541: ЕКА 
МЕ:РАІМТ а$; : МЕХТ 

1590 SOUND 129,0,0,15,1,,! 

1000 ΝΕΧΤ 

1010 FOR 151 TD 12 

1520 a$=MID$(D$,i+10,1):WINDOW ,143.2-1.2,40,15,15 
1630 ENT 1,100-1,2,1:500№0 130,50, (1-1) 16, 101 | 

1040 FOR 4Ξ640 ТО 1152-36 STEP -13:М0УЕ d+4,172:CLS#1:F 
RAME:PRINT a$; :МЕХТ 

1650 SOUND 129,0,0,15,1,,1:МЕХТ 

1660 ENV 2,3,1,1,15,0,4,15,-1,2:SDUND 129,600,0, ,2:50UN 
D 130,402,0, ,2:80UND 132,604,0,,2 

1670 TAGOFF:LOCATE 1,1:FOR 151 TO 10:LOCATE 1, 1:PRINT C 
HR$(11):NEXT 

1680 FOR 1=1 TÜ 16:PRINT CHR$(10):NEXT 

1690 LOCATE 16,25:FRAME:PRINT "ARO ТОМ" 

1700 PRINT:PRINT:LOCATE 12,25:FRAME:PRINT "MIXALH IVANN 
IDH" 

1710 FOR 151 TO 3:PRINT CHR$(10):NEXT 

1720 FOR del=0 TO 1800:IF INKEY$<)"" THEN RETURN ELSE N 
EXT: RETURN 


21730 SYMBOL AFTER 256 
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δημοσιεύει 
εργασίες-προγράµµατα πτυχιούχων 
ἡ σπουδαστών ελληνικών Πανεπι- 
στημίων που το αντικείμενό τους ғі- 
ναι σχετικό µε την ειδικότητά τους. 
Σκοπός της στήλης είναι n υποστή- 
ριξη και προθολή εργασιών από Έλ- 
ληνες επιστήμονες πάνω σε δέµατα 
που πραγματεύεται то περιοδικό και 
το άνοιγµα νέων ορίζοντων γνώσης 
στους χρήστες-αναγνώστες. 

Οι ενδιαφερόμενοι συγγραφείς 
μπορούν να επικοινωνήσουν µε το 
Ε.Π.Τ.Α τπλεφωνικώς στο Τηλ. 
3610039 ή μέσω της αλληλογρα- 
φίας στην διεύθυνση του περιο- 
δικού. 


H στήλη αυτή 


ΠΑΝΕΠΙΣΤΗΜΙΟ -ΘΕΜΑΤΑ 


3334 3330.6 EÉ E СЕТ 


азага ваза аа 


-ОЕ00М 
Т0 ΔΕΔΟΜΕΝΩΝ 121222. 


кюю 


жозсасасаса EREET UEF 


IEEE EEUE stat- 


ғ — a А { 
" н ІШ afi 


raia 
=e 
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Πρόνψραμµα Στατιστικής 


Το πρόγραµµα αυτό έρχεται για θοή- 
θεια σε κείνους που συχνά επεξεργάζον- 
ται οµάδες δεδοµένων και χρειάζεται να 
υπολογίζουν συσχέτιση μεταξύ αυτών των 
ομάδων. Το πρόγραµµα καλύπτει үраџ- 
μική συσχέτιση καϑώς και πολυωνυμική 
(καμπύλη ελαχίστων τετραγώνων). Үпар- 
χει διαδέσιµη γεννήτρια τυχαίων αριϑμών 
που ακολουϑούν κανονική κατανομή µε 
μέση τιµή р και τυπική απόκλιση o. 

Υποστηρίζεται και σχεδίαση 1010- 
γραμμάτων για δύο ομάδες δεδομένων 
κάϑε φορά. 


Ας δούμε πιο αναλυτικά το πρό- 
γραμμα. 

Πληκτρολογείστε µε την απαραίτητη 
προσοχή το πρόγραµµα της στατιστικής. 
Αν όλα πάνε καλάτότε αφού δώσετε КОМ 
да εμφανιστεί στην одбуп σας το μενού 
των επιλογών που µπορείτε να κάνετε. Οι 
επιλογές αυτές είναι: 

1. ΕΙΣΑΓΩΓΗ ΔΕΔΟΜΕΝΩΝ (ап το 
πληκτρολόγιο) 

Με την επιλογή αυτή αγνοούνται τα 
ήδη υπάρχοντα στοιχεία γι αυτό ο υπολο- 
γιστής ζητά επιθεθαίωση. Απαντήστε µε 
Ν αν ϑέλετε να δώσετε νέα δεδομένα και 
μετά πατήστε ΕΝΤΕΗ. Αν δεν ϑέλετε 
үрауте 0 και μετά ENTER. 

Мета καδορίστε πόσες ομάδες δεδο- 
μένων (αριϑμών στην προκειμένη nepi- 
πτωση) ϑέλετε να δώσετε. 

Αφού γίνει και αυτό καϑορίστε πόσους 
αριδμούς да έχει п κάϑε ομάδα (το πρό- 


γραμμα επεξεργάζεται οµάδες µε το ίδιο 
πλήδος αριθμών). 

Περνάμε τώρα στην εισαγωγή των 
στοιχείων. 

Δίνετε πρώτα το 1ο στοιχείο της πρώ- 
της ομάδας µετά το 2ο στοιχείο της πρώ- 
της ομάδας κλπ μέχρι να εισάγετε όλα τα 
στοιχεία της. Μετά προχωράτε στην 2n ο- 
μάδα την 3η ομάδα κλπ. 

Όταν δώσετε και το τελευταίο στοιχείο 
της τελευταίας ομάδας πατήστε κάποιο 
πλήκτρο για να επιστρέµετε στο μενού 
των 10 θασικών επιλογών. 

2. Μέση τιµή τυπική απόκλιση 

Για κάϑε ша από τις οµάδες δεδοµέ- 
νων που δώσατε εκτυπώνονται οι θασικές 
στατιστικές παράμετροι δηλαδή μέση τι- 
μή, διασπορά, τυπική απόκλιση. 

H μέση τιµή είναι ο µέσος όρος των 
στοιχείων της ομάδας. 

H διασπορά, ñ διακύμανση, εκφράζει 
το πόσο κοντά θρίσκονται οι τιµές της ο- 
μάδας στη μέση τιµή, εκφράζεται µαδη- 
µατικά από тп σχέση. 

Η τυπική απόκλιση ισούται µε την τε- 
τραγωνική ρίζα της διασποράς. 

Αφού γίνουν ot υπολογισμοί των πιο 
πάνω παραμέτρων, το πρόγραµµα σας 
ρωτά για τον τρόπο εκτύπωσης των ANOTE- 
λεσμάτων. Διαλέξτε: 

1 για αποτελέσµατα στην οδόνη 
2 για αποτελέσµατα στο χαρτί. 

Αφού εκτυπωδούν τα αποτελέσµατα 
μπορείτε να έχετε επανεκτύπωση, απαν- 
τώντας µε Ν στην αντίστοιχη ερώτηση. Σε 
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αντίϑετη περίπτωση πατώντας κάποιο 
πλήκτρο επιστρέφεται στο μενού των 10 
επιλογών. 
3. Γραμμική συσχέτιση 

Το πρόγραµµα επιχειρεί να Θρει Ká- 
ποια γραμμική σχέση που πιϑανόν συν- 
δέει δύο ομάδες δεδομένων. Γραμμική 
σχέση λέγεται κάϑε σχέση της μορφής 
v=ox+6 
x: ανεξάρτητη μεταθλητή 
у: εξηρτημένη μεταθλητή 

Το πρόγραµµα παρουσιάζει τις ομά- 
δες δεδοµένων που έχουν καταχωρηδεί 
και ζητά μεταξύ ποιων ομάδων επιδυµείτε 
να γίνει συσχέτιση. Αν éste να κάνετε 
συσχέτιση μεταξύ της 1ης και 3nç ομάδας 
δώστε 1,3. Εννοείται ότι τα στοιχεία της 
Inç ομάδας да έχουν ρόλο συντελεστή a- 
νεξάρτητης μεταθλητής καὶ της 3nç ομά- 
δας ρόλο εξηρτημένης. Το πρόγραµµα v- 
πολογίζει τους συντελεστές а, 6. Κατόπιν 
o χρήστης µπορεί να διαλέξει τρόπο εκτύ- 
поопс, δηλαδή οϑόνη ή εκτυπωτή. Ὑπάρ- 
χει δυνατότητα επανεκτύπωσης απαντών- 
τας N στην αντίστοιχη ερώτηση. Μετά 
μπορεί κάποιος να μελετήσει αντίϑετη 
συσχέτιση, δηλαδή να αλλάξει τη σειρά 
των ομάδων και να εξετάσει την 3η σαν 
ανεξάρτητη καὶ την 1η σαν εξαρτημένη, 
ή οτιδήποτε άλλο συνδυασμό ϑέλει. A- 
παντώντας 0 στην ερώτηση: ΘΕΛΕΤΕ ΝΑ 
ΕΞΕΤΑΣΕΤΕ ΣΥΣΧΕΤΙΣΗ ΚΑΙ ΓΙΑ ΑΛ- 
ΛΑ ΖΕΥΓΑΡΙΑ (Ν/Ο) 

Αν δέλετε να γίνει συσχέτιση µε x στα 
στοιχεία της lne ομάδας και v τα στοιχεία 


============================= 


ТІКН ЕРЕЈЕАБАЅІА STOIXEIVN 


GEVRGIOS F ВАКЏА ΙΤΗΘ 


ΝΠ 


1040 "ТАВ (17); "8 TA T IS TIKH к 
1050 ;5ТВ1Мб6$(78,"-") 

1055 WINDOW 81,4,75,8,22:РАРЕЯ #1,7:РЕМ #1,2:С15 #1 
1060 ΡΒΙΝΤ #1 

1065 C$=CHR$ (24) 


1070 PRINT %1,ТАВ 19 D Y N À T D T H T E 5 ":PRINT #1 


1075 АА=14 

1080 PRINT #1,TAB(AA);"EISAGVGH DEDOMENVN 

1090 PRINT #1,TAB(AA);"MESH ΤΙΜΗ ΤΥΡΙΚΗ APOKLISH .. 
1100 PRINT #1,TAB(AA);:"GRAMMIKH SYSXETISH 

1110 PRINT #1,TAB(AA);"PROSARMOGH KAMPYLHS . 

1120 PRINT #1,TAB(AA);"KANONIKH KATANOMH ... 

1135 PRINT #1,TAB(AA);"PAROYSIASH ΡΕΡΟΜΕΝΝΝ ... 
1156 PRINT #1,TAB(AA);"FORTVSE ARXEIO DEDOMENVN ... 
1137 PRINT #1,TAB(AA);"SvSE ARXEIO DEDOMENVN ... 
1138 PRINT #1,TAB(AA);"ISTOGRAMMATA 

1140 PRINT #1,TAB(AA);"T E L 0 5... 

1150 PRINT #1 

1160 PRINT #1,TAB(AA+6);"DVSE ТОМ KATALLHLO АВТОМО 
1165 М%="" 

1170 IF E=0 THEN MODE 2:END 

1180 IF E>9 OR Е<1 THEN 1160 

1185 IF Е-7 THEN CLEAR: E=7;C$=CHR$ (24) 


1190 ON Е GOSUB 2000, 4000, 6000, 8000, 10000, 15000, 18000, 21000, 24000 


1200 MODE 2:60Т0 1020 

2000 ' ---- EISAGVGH DEDOMENVN ---- 
2010 MODE 2:C$=CHR$ (24) 

2020 PRINT " "CS" EISAGVGH 
2025 GOSUB 32000 

2030 PRINT 


2035 INPUT " SIGDYRA UELETE ΝΑ DVSETE ΝΕΑ STOIXEIA (N/0) ",71% 


2037 IF UPPER$(ZZ$)="N" THEN 2038 ELSE RETURN 


2038 ІР М<20 AND T$="NAI" THEN ERASE A, SUM, MEAN, DIASP,S2 ELSE ІР М<20 THEN ERASE 


A 
2042 INPUT " POSES OMADES DEDOMENVN UA EISAGETE 


2060 DIM A(K,N),SUM(N) , MEAN (N) ,DIASP (N) , 82(Ν) 
2070 MODE 2 


της 2nç ομάδας δώστε 1,2 και µετά πατή- 
σετε ENTER. 
4. Προσαρμογή καμπύλης 

H εισαγωγή των δεδοµένων γίνεται ó- 
πως πριν, µε τη διαφορά бт τώρα δεν a- 
ναζητείται ευδεία που να περνά από та 
Хі, Уі αλλά πολυώνυμο 2ου θαδμού. 
у= В, +В: + Взҳ?. Το πρόγραμμα vno- 
λογίζει καὶ εκτυπώνει τους συντελεστές 
В, B2, Вз. Ακολουθεί επανεκτύπωση, αν 
το επιθυµεί ο χρήστης, ή παλινδρόμηση 
µε άλλες οµάδες δεδοµένων στο ρόλο 
των X και у. Αν τίποτα апо αυτά δεν επιδυ- 
μεί ο χρήστης τότε πατώντας κάποιο πλή- 
κτρο επιστρέφει στις αρχικές επιλογές. 

Οι συντελεστές Ву, B2, Вз του πολυω- 
νύμου Bı 1 В + Bx? υπολογίζονται ὦ- 
στε να πετυχαίνεται ελαχιστοποίηση των 
αποστάσεων των σημείων από την καμπύ- 
Ап. 

5. Κανονική κατανομή 

Εδώ ο χρήστης µπορεί να παράγει µια 
σειρά τυχαίων αριϑμών που ακολουδούν 
κατανομή GAUSS µε μέση τιµή р, και tu- 
πική απόκλιση σ. 

Οιποσότητες р, σκαδορίζονται απότο 
χρήστη, Κατόπιν επιλέγεται το µέγεδος 
της σειράς (το πολύ 200 αριθμοί). Kató- 
mv υπάρχει δυνατότητα εξόδου αποτελε- 
σµάτων στο χαρτί ñ στην o8óvn, καὶ μετά 
επανεκτύπωσηπ ή επιστροφή στο θασικό 
μενού. 

6. Παρουσίαση Δεδομένων 

Με αυτή την επιλογή, ο χρήστης έχει 

τη δυνατότητα να δει та δεδοµένα (ανά o- 


EFARMDGES" 


"ss INPUT #1," " 


DEDDMENVN "CS 


",N:PRINT 
2045 INPUT " POSA ΒΤΟΙΧΕΙΑ UA PERIEXEI Н КӨШЕ OMADA DEDOMENVN ",k 


2072 FOR Ізі TO N:LOCATE (1-1)#12+8,1:РВ1МТ " ";С%;" OMADA";I;" ";C$:FOR 2-1 TO 


K:LOCATE 1,J+2:PRINT USING"##";J;:PRINT ".., 


2080 FOR I=1 TO N 
2100 FOR J=1 TO K 


"NEXT 2,1 


2110 LOCATE (I-1)*12+B,J+2:INPUT " ",А(Ј,1) 
2115 LOCATE (I-1)*12+8,J+2:PRINT USING" #####.###";А(Ј,1) 


2120 NEXT J,I 
2122 GOSUB 44000 
2130 RETURN 


4000 ' -- MESH ΤΙΜΗ ТҮРІКН APOKLISH -- 


00:RETURN 

4005 T$="NAI" 

4018 5-0 

4020 FOR I=1 TO N 
4030 FOR J=1 TD K 
4040 S=S+A(J,I) 

4050 SUM(I)=S 

4060 NEXT J:S=0:S2=0 


4065 МЕАМ (1) =50М (1) /К: МЕХТ І 


4002 IF №1 THEN MODE 2:РКІМТ ТАВ (26); С%;" DEN ΥΡΑΒΧΩΥΝ 8ΤΟΙΧΕΙΑ ";С%;:50508 440 


4066 FOR 1=1 ТО N:FOR 0-1 ΤΟ К:52(1) =52(1) +(А(Ј, 1) -МЕАМ(1)) ^2: МЕХТ Ј: ТАР (1) =1/ 


Кж52(1):52(1) =0:МЕХТ I 
4070 MODE 2:505УВ 54000 


4072 PRINT #0," BASIKES ЅТАТІЅТІКЕЅ ΡΑΒΑΜΕΤΗΟΙ " 


4074 
407 


4080 #0," ";STRING$(78,"-") 


LISH" 


4090 PRINT #0," ";"а/а";ТАВ(24);"МЕ5Н TIMH";TAB(45);"DIASPORA";TAB(66);"TYP АРОК 


4100 PRINT #0," ";STRING$(78,"-") 


4110 FOR I=1 TO N 


4120 PRINT #0," ";:PRINT #0,051Мб"##";1;: PRINT #Q,TAB(24);:PRINT #0,USING" НЕ 


‚###";МЕАМ(1); 


Т #Q, USING" 
4130 NEXT I 


4141 PRINT #0 
4142 PRINT " 
CS; : INPUT " ", W$ 


4146 RETURN 
4150 GOSUB 44000 
4160 RETURN 


4122 PRINT ΜΑ, ТАВ (45) ; :РАІМТ #Q, USING" ####,###";DIASP(I); :РКІМТ #Q,TAB(66);:PRIN 
4488. ###"; ОА (рТАбР (1) ) 


4140 PRINT #0," "; STRINGS (78, "-") 
";С%;" ЦЕ ЕТЕ ΝΑ EPANALHFUEI H ΡΙΑΡΙΚΑΒΙΑ THS EKTYPVSHS (№/0) "; 


4144 IF ЦРРЕНФ (ИФ) ="№" THEN 4070 ELSE 44000 


6000 ' ---- БКАММІКН SYSXETISH ---- 
6005 IF №1 THEN MODE 2:РКІМТ ТАВ (12) ;С%;" DEN ΝΟΕΙΤΑΙ БКАММІКН 8ΥΘΧΕΤΙΘΗ GIA МІ 


А ОМАРА ΡΕΡΟΜΕΝΝΝ ";С%; :РКІМТ СНАФ (7) ; СНАФ (7) ;: 50508 44000:RETURN ELSE 8008 


МЕГІГІН ΤΙΜῊ [Iñ THN in OMANA 
ΜΈΓΙΣΤΗ ΤΙΜΗ ГІЯ ΤΗΝ 2п ΟΜΑΔΑ 


рада) και κατόπιν να τα εκτυπώσει στο 
χαρτί. Αν δεν δέλει να επαναλάθει τη δια- 
δικασία της εκτύπωσης τότε απαντά µε 0 
και στη συνέχεια πατά RETURN πατών- 
τας κάποιο πλήκτρο επιστρέφει στο κύριο 
μενού. 
7. Φορτώστε αρχείο δεδοµένων... 

O χρήστης καϑορίζει то όνομα του ap- 
χείου δεδομένων που δέλει να φορτώσει 
(έως 8 χαρακτήρες και та δεδοµένα perta- 
φέρονται από τη δισκέττα στην μνήμη του 
υπολογιστή. Όταν τελειώσει η διαδικα- 
σία του φορτώματος, πατώντας κάποιο 
πλήκτρο, το πρόγραμμα επιστρέφει στις 
θασικές επιλογές. 
8. Σώσε αρχείο δεδεομένων 

Ο χρήστης διαλέγει µε ποιο όνομα δέ- 
λει να φυλαχϑούν τα δεδοµένα στο δίσκο. 
Το όνοµα του αρχείου δεν πρέπει να ξε- 
περνά τους 8 χαρακτήρες. Όταν τα δεδο- 
μένα φυλαχϑούν σε αρχείο στη δισκέττα, 


25 


25.89 
33 


πατώντας κάποιο πλήκτρο,το πρόγραµµα 
επιστρέφει στις θασικές επιλογές. 
9. ΙΣΤΟγράµµατα 

Το πρόγραμμα δίνει τη δυνατότητα 
στο χρήστη µέσω αυτής της επιλογής να 
δει ιστογράµµατα των καταχωρημένων o- 
μάδων στοιχείων κατά ζεύγη. O χρήστης 
δίνει για ποιες οµάδες δέλει να σχεδια- 
στεί то ιστόγραμμα π.χ. 2,3 και μετά 
RETURN θέθαια. Το πρόγραμμα σχεδιά- 
ζει τα ιστογράµµατα και εκτυπώνει τη pé- 
γιστη και ελάχιστη τιµή που συναντήδηκε. 
0. ΤΕΛΟΣ 

Με αυτή την επιλογή ο χρήστης εγκα- 
ταλείπει το πρόγραµµα. Αν αλλάζει γνώ- 
un, καὶ δεν έχει προηγηϑεί εντολή NEW 
CLEAR, LOAD, τότε µπορεί να επανέλ- 
δει στο πρόγραµµα δίνοντας GOTO 


1020. Βαρδαλίτης Φ. Γεώργιος 
Φοιτητής Πολιτικός Μηχανικός 
Τηλ. 6816485 


00:КЕТЦЕМ ELSE 6010 
6010 ΜΟΡΕ 2:РКІМТ " ";C$;" EYUEIA ELAXISTVN TETRAGVNVN "Сб РБІМТ 

6015 PRINT:Q=0:W$="NAI":GOSUB 15100 

6020 ΡΗΙΝΤΙΡΗΒΙΝΤ " Perigracte gia poio zeygow omadvn ua ginei grammikh sysxetish 
«Ώνξεε dyo ariu ":РАІМТ " тоун xvrismenoyw те komma р.х. 1,2 ";:1МРИТ A1,A2 
6025 5Х-0:5Ү-0;:5ХҮ-0:5Х2-0 

6030 FOR Ізі TD K 

6040 SX=SX+A(I,A1):SY=SY+A(I,A2) 

6050 $ХҮ=5ХҮ+А(1,А1)%А(1,А2):5$Х2=5Х2+А(1,А1)^2 

6060 NEXT I 

6070 X1=SX/K:Y1=SY/K б 

6080 В2= (5ХҮ-КЖҰХІЖҮ1) / (5Х2-КЖХ1 ^2) 

6090 ВізҮ1-В2%Х1 

6160 7 ΕΚΤΥΡΝΒΕΙΘ == 
6170 MODE 2:605$ШВ 34000 
6180 PRINT #0," GRAMMIKH SYSXETISH METAJY TVN OMADVN 
6190 PRINT #0," ";STRING$(78,"-") 

6200 PRINT #Q 

6210 PRINT #0," YPOLOGISTHKAN 01 РІО КАТУ РОЅОТНТЕЅ " 
6220 PRINT #Q 

6250 PRINT #0," AUROISMA Х(1) ";:PRINT #Q,USING" ΕΗΒ. ІН"; 5Х 
8240 PRINT #Q," AUROISMA Y(I) ";:PRINT #Q,USING" тін”; SY 
6250 PRINT #Q 


"ФА1;" &'$А2 


виза. яз 
ненин. 38 


ЖҮСІС "PRINT 38. 081 


мерт 


#6." 
4 


8290 PRINT 90,! SIA “ΗΝ 


А + пах 


ROMHSHS 


*+###.### "81 
#####. ### "182 


8500 PRINT #0, USING" А 
6510 PRINT #Q,USING" B 
75520 PRINT ΤΟ ~ 


ип 


6550 PRINT #0," ";STRING$(78,"-") 
840” 
8542 PRINT " ";С%;" ΕΙ ΕΤΕ МА ΕΡΑΝΑΙΑΒΕΤΕ ΤΗΝ DIADIKASIA ΕΚΤΥΡΨΘΗΘ (Ν/0) " 


104411ΙΝΡΟΤ " ",P$ 

6344 ΙΕ UPPER$(P$)="N" THEN 2170 ELSE 6346 

6346 PRINT:PRINT " 1081". UELETE МА EJETASETE SYSXETISH ΚΑΙ GIA ALLA ZEYGARIA 
(N/O) ";C$;:INPUT " ",2% 

6348 IF UPPER$(Z$)="N" THEN 6000 ELSE 6350 

6350 RETURN 

6352 RETURN 

8000 ' === PROSARMOGH KAMPYLHS SE ZEYGARIA DEDOMENVN === 

8002 IF ΝΞΟ THEN 8004 ELSE 8006 

8004 MODE 2:PRINT ТАВ(28);С%;" DEN ΥΡΑΑΧΟΥΝ 5ΤΟΙΧΕΙΑ ";С%;:5050В 44000:ΒΕΤΙΒΝ 

8006 IF N=1 THEN MODE 2:PRINT TAB(14);C$" DEN ΝΟΕΙΤΑΙ PALINDROMHSH ME ΜΙΑ ОМАРА 

DEDOMENVN ";C$;;PRINT CHR$(7);:GOSUB 44000:RETURN ELSE IF М>1 THEN 8010 

8010 MODE 2:PRINT 

8020 PRINT " ";C$;" PROSARMOGH KAMPYLHS SE ZEYGARIA DEDOMENVN "C$; :PRINT 

8025 E$="NAI" 

8030 PRINT: 0=0: ИФ="МАІ": 50508 15100 

8040 PRINT 

8045 PRINT " Kauoriste apo poio zeygow omadvn uelete па perna h kampylh.Dvste dy 

о ariumoyw ":PRINT " xvrismenoyw те komma р.х. 1,2 "j:INPUT " "ΑΙ Α2 

8060 PRINT:PRINT " ";C$;" ША PROSDIORISTOYN 01 SYNTELESTES Ві B2 B3 VSTE ";С% 

8070 PRINT " ";С%;" Н ΚΑΗΡΥΙΗ В1#Х+В2%Х+В83#Х^2 ΝΑ ΡΒΟΘΕΒΟΙΤΕΙ BEL ";С% 

8080 PRINT " ";C$;" TISTA TIS OMADES DEDOMENVN POY ЕРІ ΕΧΤΗΚΑΝ " C$ 

8090 DEF FNF(X)=1:DEF FNG(X)=X:DEF ҒМН(Х) =Х^2:° KANONTAS EPEMBASH 5” ΑΥΤΗ ΤΗΝ ΕΝ 

TOLH ΜΡΌΒΕΙΤΕ NA BREITE ΤΗ BELTISTH KAMPYLH KAI GIA ALLES SYNARTHSEIS 

8100 μες 

8105 DIM AA(M,M+1),B(M),Z(M) 

8110 FOR I=1 ΤΟ M:FOR J=1 ТО M:AA(I,J)=O:NEXT J:Z(I)=O:NEXT I 

8120 ' K : TO PLHUOS ТУМ STOIXEIVN POY PERIEXEI KAUE OMADA DEDOMENVN 

8130 FOR I=1 TO K 

8140 X=A(I,A1):Y=A(1,A2) 

8150 АА(1,1) =АА(1, 1) +ЕМЕ(Х) ^2 

8100 АА(1,2) =АА(1, 2) «ЕМЕ (ХО ЖЕМ (X) 

8170 АА(1,3) =АА(1,5) +ЕМЕ(Х) ЖЕМН СХ) 

8175 ΑΑ(2,2)ΞΑΑ(2, 2) +ҒМБ(Х) ^2 

8180 АА(2, 3) =АА (2,3) +ҒМ№Б (Х) ΧΕΝΗ(Χ) 

8190 АА(3, 3) =АА(5, 5) ΣΕΝΗ(Χ) 2 

8200 Z(1)=2(1)+FNF (Х) жү 

8210 21(2) =7 (2) +ҒМБ(Х) жү 

8220 Τ(5)Ξ7 (5) +ЕМН(Х) ЖҮ 

8250 NEXT I 

8240 АА(2,1)-АА(1,2):АА(3,1)-АА(1,3):АА(2,2) «АА(2,2) 

8250 ” РЕОЕТОІМАБІА GIA ΤΗΝ EPILYSH ΤΟΥ GRAMMIKOY SYSTHMATOS 3X3 

8280 ΝΙΞΗΙΕΟΒ 151 ΤΟ М1:АА(1,М1+1)=7(1):МЕХТ I 

8270 ° KLHSH THS ҮРОКОҮТІМАЅ POY ΕΡΙΙΥΕΙ ΤΟ GRAMMIKO ЅҮБТНМА 

8280 GOSUB 50000 

8290 ' жұ EKTYPVSEIS жұ 

8300 MODE 2:GOSUB 34000 

8310 PRINT 

8520 PRINT %0," PROSEGGISH KAMPYLHS SE ZEYGARIA SHMEIVN.MEUODOS ELAXISTVN TETRAG 

умум " 

8550 PRINT #Q,STRING$(78,"-") 

8340 PRINT #Q 

8550 PRINT #0," ΒΙΑ ΤΗΝ KAMPYLH 

8360 PRINT #Q 

8570 PRINT #Q,USING " SYNTELESTHS Ві 

8380 PRINT #Q,USING " SYNTELESTHS 

8390 PRINT #0,USING " SYNTELESTHS 

8400 PRINT #Q 

8410 PRINT #0," ";5ТКІМ% (78, "-") 

8420 PRINT 

8430 PRINT " ";С%;" UELETE NA EPANALHFUEI H DIADIKASIA THS EKTYPVSHS (М№/0) ";C 

$; : INPUT " ",M$ 


В1%В2%Х%В3%Х72 YPOLOGISTHKAN : " 
###. HHRHH ";В(1) 


Β2 ###.##### ";B(2) 
В5 ###.##### U; B(3) 


6008 IF N<1 THEN ΜΩΡΕ 2:PRINT TAB(28);C$;" DEN YPARXOYN 5ТО1ХЕ1А ";С%;:605иИВ 440. 


8440 ÍF ОРРЕКФ (МФ) ="№ THEN 8300 ELSE 8450 
8450 PRINT " ";С%;" ЦЕ ЕТЕ ΝΑ ΡΟΥΙΕΟΕΤΕ МЕ ALLA ΖΕΥΒΑΒΙΑ ΡΕΡΟΜΕΝΝΝ 
$; INPUT " ",D$ 

8460 IF UPPER$(D$)="N" THEN ERASE АА,В,7:5070 8010 ELSE ERASE AA,B,Z:RETURN 
8470 ' --------------------------------------------------------------------- 
10000 ° --- ARIUMOI POY AKOLOYUDYN КАМОМІКН КАТАМОМН 
10005 DIM TYX(200) 

10010 MODE 2 

10020 PRINT " ";С%;" GENNHTRIA ARIUMVN POY AKOLOYUOYN KANDNIKH ΚΑΤΑΝΟΜΗ ";C$ 
10030 PRINT 

10040 INPUT " DVSTE THN EPIUYMHTH MESH TIMH 


(N/O) ";C 


4444......... "MT 


10050 INPUT " DVSTE ΤΗΝ ЕРІШҮМНТН ТҮР APOKLISH ........... “ΤΑ 
10060 PRINT 

10070 INPUT " Р050Ү8 ARIUMOYS UELETE ..................... " NN 
10090 CLS 

10100 FOR I=1 TO NN: X1=RND: X2=RND: X3=RND: X4=RND: X5=RND: X6=RND 
X1=RND: X2=RND: X3=RND: X4=RND: X5=RND: X6=RND 
TYX(I)=(X1+X2+X3+X4+X5+X6)-3 


10110 
10120 


10125 TYX(I)=TYX(I)*TA+MT 

10130 NEXT I 

10140 GOSUB 34000 

10150 ' == EKTYPVSEIS == 

10160 PRINT #Q," ΤΥΧΑΙΟΙ ARIUMOI POY AKOLOYUOYN ΚΑΝΟΝΙΚΗ KATANOMH " 

10170 PRINT %0," PARAMETROI KATANOMHS ";:PRINT #Q,USING" MESH ΤΙΜΗ ӘРИНЕ 

“ҙмт 

10180 PRINT #0," 

"TA 

10190 PRINT #0, STRINGS (78, "-") 

10200 FOR I=1 TO NN STEP 5 

10210 PRINT #0, USING" 48888. ### 88488, нев 

#"; ТҮХ (І) ТҮХ(1%1);ТҮХ(1%2);ТҮХ(195); ТҮХ(1%4) 

10220 ΝΕΧΤ 1 

10225 PRINT %0,5ТКІМ56(78,"-") 

10250 PRINT :РКІМТ " ";C$;" UELETE МА ΕΡΑΝΑΙΑΒΕΤΕ ΤΗΝ DIADIKASIA THS ЕКТҮРУ6Н5 
(МИО) ";C$%;:INPUT " ",7% 

10240 IF UPPER$(Z$)="N" THEN CLS:GOTO 10140 ELSE 10250 

10250 PRINT : PRINT ТАВ(15);С%" PATHSTE KAPOIO PLHKTRO GIA EPISTROFH STIS EPILOG 

ES ";C$ 

10260 WHILE INKEY$="";WEND 

10265 ERASE TYX 

10270 RETURN 

15000 ” -------- ΡΑΒΟΌΥΞΙΑΞΗ ΡΕΡΟΜΕΝΝΟΝ --------- 


"s: PRINT #0,051Мб" ТҮР ΑΡΟΚΙ Ι58Η НЫҢ ### 


ннн. HRH отыны отынын 


15002 ΤΗΕΝ 15004 ELSE 15010 

15004 MODE 2:PRINT ТАВ(28);С%;" DEN ΥΡΑΑΧΟΥΝ DEDOMENA ";C$;:PRINT CHR%(7):GOSUB 
44000 

15005 RETURN 

15010 MODE 2:PRINT:PRINT " "1581" РАКОҮЅІАЅН DEDDMENVN ";C$ 


15020 GOSUB 24000 
15097 PRINT Я0:ІҒ 0=8 THEN PRINT #B,CHR$(27);CHR$(52);:' 
15098 PRINT #0," EK TYP VSH DEDOMENVN" 


ELLHNIKA STON ЕКТҮРУТН 


15099 PRINT #0," == === "; PRINT #0 
15100 FOR 151 TO N 

15110 PRINT #0, TAB((I-1)#12+8);"OMADA"; 1; 

15120 NEXT I 

15125 PRINT 80 

15150 7 

15140 PRINT %0," ";STRING$(78,"-") 

15150 FOR I=1 TO κ 7 

15160 FOR 2-1 ΤΟ М 

15170 PRINT #0,ТАВ (07-1) х12+6) ;:РКІМТ #0,051Мб"#####,###";А(1,1); 
15180 NEXT J 


15190 NEXT I 
15200 PRINT #q:PRINT #0," ";STRING$(78,"-") 
15205 IF W$="NAI" THEN RETURN 


15210 PRINT " "C$;" ЦЕ ЕТЕ МА EPANALABETE ΤΗΝ DIADIKASIA (№0) ";С%; : INPUT 
” "P$ 

15220 IF UPPER$(P$)="N" THEN 15000 ELSE RETURN 

15250 ° — 

18000 ' - - FORTVSE ARXEIO DEDOMENVN - 

18010” 


18020 MODE 2:РКІМ№Т " 
18050 PRINT 

18040 САТ 

18050 PRINT " DVSE ΤΟ ΟΝΟΜΑ ΤΟΥ ΑΑΧΕΙΟΥ ......... 
18060 7 

18080 ’ 

18090 DIM A(30,6) 

18100 OPENIN DFILE$ 


";С%;" FORTVMA ARXEIOY DEDOMENVN ";C$ 


"#:INPUT " “",DFILE$ 


18110 INPUT %9,К,М 

18120 FOR 151 T0 K 

18130 FOR Ј=1 ΤΟ N 
18140 INPUT #9,A(I,J) 
18150 NEXT J 

18160 NEXT I 


18170 CLOSEIN 
18180 GOSUB 44000 
18190 RETURN 


18200 ” ---------------------------------------------------------- 
21000 ' -------- SVSE ΑΑΧΕΙΟ DEDOMENVN - - 

21010 MODE 2 

21020 PRINT " ";C$;" SVSIMO ТУМ DEDOMENVN STO DISKO ";C$ 


21030 PRINT 

21040 INPUT " ME ΤΙ ONOMA ΝΑ SVUOYN TA DEDOMENA 
21050 OPENOUT DIFILE$ 

21060 PRINT #9,K,N 


",D1FILE$ 


21070 FOR I=1 TO K 

21080 FOR J=1 TO N 

21090 PRINT #9, USING" 884888. #8";А(І, Ј) 
21100 NEXT J 

21110 NEXT I 


21120 CLOSEDUT 
21130 GOSUB 44000 
21140 RETURN 
21150” 
24000 7 πα 

24002 ΜΟΡΕ 2:IF М<2 ТНЕМ 24004 ELSE 24020 

24004 PRINT " " C$;" TO PROGRAMMA SXEDIAZEI ISTOGRAMMA GIA DYO OMADES DED 
OMENVN ";С%;:6050В 44000 

24005 RETURN 

24010 ° 

24020 WINDOW %1,1,80,12,24:РАРЕБ %1,С:РЕМ #1,2:С15 #1 

24030 PRINT #1:PRINT %1,ТАВ(25);" SXEDIASMOS ISTOGRAMMATOS " 

24040 PRINT #1 

24050 PRINT #1,” YPARXOYN STOIXEIA GIA";N;" OMADES DEDOMENVN " 

24060 PRINT #1," GIA POIES OMADES DEDOMENVN UELETE ISTOGRAMMA " 

24062 PRINT #1:РКІМТ #1," DVSTE DYO OMADES APO TIS YPARXOYSES XVRISMENES ME KOMM 
A P.X 1,2 ":PRINT #1 


24064 PRINT #1," ";:INPUT #1," ",AZ,BZ 
24065 CLS 
24070 ' -- YPOLOGISMOS MEGISTVN TIMVN ANA OMADA ΚΑΙ KAUDRISMOS KLIMAKAS -- 


24080 MX1=0:MX2=0 
24090 FOR I=1 TÜ K 


24100 ΙΕ MX1<A(I,AZ) THEN MX1=A(1,AZ) 
24110 NEXT I 
24120” 


24150 FOR ігі το K 

24140 IF ΜΧ2(Α(Ι, ΒΖ) THEN МХ2-А(1,827) 
24150 ΝΕΧΤ 1 

24160 МХ-МАХ(МХ1,МХ2) 

24170 Κι ΙΗΧΞ264,9/Κ:ΚΙ ΙΗΥ-280/ΜΧ 

24180 PLOT 10,100:DRAW 630, 100: DRAW 650, 398: DRAW 10,398:DRAW 10,100 
24190 MOVE 20,110:DRAW 220, 110:MOVE 20,110:DRAW 20,388 


24195 ORIGIN 20,110 _ 

24200” “τζΗ58 (24) 

24210 FOR 151 ΤΟ K 440 HILE INKEY$=""; WEND 

24220 MOVER 0,0:DRAWR 0.Α{1, ΑΖ} ΣΚΙ ΙΜΥ:ΡΒΑΜΕ KLIMX,0:DRAWR 0,-A(I,AZ)*KLIMY š 

24230 ' 

24240 DRAWR O,A(I,BZ)*KLIMY:DRAWR KLIMX,O:DRAWR 0,-A(I,BZ)*KLIMY 5 Ç NA EFILYSHS БКАММІКОҮ SYSTHMATOS 
24250 ' 1-1 

24260 MOVER KLIMX/4,0 

24270 NEXT I 5 

24272 ORIGIN 0,0 50080 I=R+1 TO N1 

24275 TAG:MOVE 60.ΒΟ0:ΡΑΙΝΤ " МЕБІЅТН ΤΙΜΗ GIA ΤῊΝ ih OMADA ";MX1;:"” "τ 0050 IF АВЅ‹А) АВ9(АА(1,52) THEN 50080 

24280 МОМЕ 60,64:PRINT " MEGISTH ΤΙΜΗ GIA ΤΗΝ 2h OMADA “;MX2;" "j η А-АА(1,8) 

24285 TAGOFF 0 ΤΕΙ 

24200 GOSUB 44000 30080 NEXT I 

24305 RETURN O IF T=R THEN 50150 

52000 ' --- PLHROFORIES GIA ΤῊΝ PRVTH EPILOGH --- 50100 FOR 8158 TO М1+1 

22010 WINDOW %1,2,79,15,22:РАРЕБ #1,Z:PEN 81.210ἱ5 #1 0110 B1=AA(R,51) 

32020 PRINT #1:PRINT 8 1,TAB(Z30);"EISAGVGH DEDOMENVN":PRINT #1 i АА (R.,Si)=AA(T,S1) 

22020 PRINT #1," Kanontaw ayth thn epilogh dinete ston ypologisth thn omada h ti 54:53 AA(T.S1)=B1 

w omadew tvn ":PRINT #1," stoixeivn poy uelete па epejergastei." 50140 NEXT S1 

32040 PRINT #1 50150 FOR I=R+1 TO МІ 

32050 PRINT #1,TAB(17);" PROSOXH !!! TA HDH YPARXONTA UA SBHSTOYN " 10 FOR J=R+1 ТО Мізі 

220060 RETURN 70 АА (1,27) =AA(I, J) -АА(Т. Β) ЖАА (К. 0) /АА (К,А) 
32070” 55180 NEXT J 

34000 ` T l 50: NEXT 1 

34010 90200 NEXT К 

34020 PRINT " ЕГЕТЕ ΝΑ ЕКТҮРУШОҮМ ΤΑ ΡΕΡΩΜΕΝΑ 1. STHN DUONH" BINI =AA (N1, N1+1) 7А СМІ, МІ 

34030 PRINT " 2. STO XARTI" 52770 FOR J=N2-1 

34040 PRINT 

54050 WHILE 051 OR 822 50 FOR EK=J+1 TO N1 

34060 INPUT " EPILEJTE % 5 S=S+AA (J KE) ВЕ) 

34070 WEND O NEXT Kk 

54080 IF Q=1 THEN 0-0 ELSE IF 4-2 THEN Q=8 B(J)=(Añ(J.N1+1)-S)/ 

34090 RETURN O NEXT J 

34:00 - ж Τ 

44000 ү 
44010 LOC C 
RESUME NEXT 


ΘΕΛΕΤΕ МА ЕКТҮППӘдҮН Та йЕЙОМЕНЯ $ THN ΟΘΟΝΗ 
19 ΧΑΡΤΙ 


ΕΠΙΛΕΞΤΕ .......... 
ГРАММТЕН ΣΥΣΧΈΤΙΣΗ kita: Y TON MAMIN 1 
ҮПОЙОГІУТНКАМ óJ ПІО КАТО ΠΟΣΟΤΗΤΕΣ 


ΑΘΡΟΤΣΗΑ X(I) 120.000 
ἠΘΡΟΙΣΜΗ ҮСТ) 105.000 


ВӨРОТЈМА ΤΩΝ OPON Χ(ΓΡΧΥ(Ι} , 
ΑΘΡΟΤΣΝΑ TON OPON AUDITA 5850-00 


Ai ТН EVEIA ПАЙІМОРОМНУНУ й + Вих Та А,В КІМДІ 


Γειά σας. για µια ακόµη φορά από тп στήλη 
αυτή. 

Σήµερα δεν да ασχοληϑούμε µε την Ε.Π. 
Т.А. BASE то ΔΙΚΤΥΟ ΑΡΓΩΣ και όλα ta πλέ- 
ον γνωστά, αλλά µε κάτι ξεχωριστό και αρκετά 
κοντινό στο χώρο των επικοϊνωνιών. Μιλάμε 
για µια έκδοση του Αδηναϊκού Πρακτορείου 
Ειδήσεων (Δ/νση Μελετών και Εφαρμογών 
Νέας Τεχνολογίας) pe tito «Να ξαναεφεύρου- 
µε τη Δημοσιογραφία», που περιέχει τα πρα- 
кпка του Α΄ Εκπαιδευτικού Σεµιναρίου στα 
Néa Μέσα Μαζικής Επικοινωνίας που έγινε 
στο Ζάππειο από тіс 15 Σεπτμεθρίου 86 έως 
15 Ιανουαρίου 87. 

Στο θιθλίο αυτό о αναγνώστης κατανοεί - 
μέσα από τις συζητήσεις που αναπτύχθηκαν 
στο σεμινάριο — τι είναι videotex, teletext, £- 
φαρμογές και συστήµατα που λειτουργούν ήδη 
στην Αγγλία και Γαλλία, Βάσεις Δεδομένων, 
πληροφορίες γύρω από εταιρείες διανομής 
πληροφοριών, ηλεκτρονικά συντακτικά συστή- 
ματα. θάσεις δεδομένων σε εφημερίδες και 
πολλά άλλα ενδιαφέροντα. Ας δούμε όµως τι 
λένε ο Γιάννης Φαρμάκης και ο Μιχάλης Μεῖ- 
μάρης үг αυτή την έκδοση; 

Парабібоугас σήµερα στον αναγνώστη τα 


πρακτικά του Α΄’ Εκπαιδευτικού Σεμιναρίου 
στα Νέα Μέσα Μαζικής Επικοινωνίας (που ορ- 
γανώδηκε апо τη Διεύθυνση Μελετών και E- 
φαρμογών Νέας Τεχνολογίας του Αθηναϊκού 
Πρακτορείου Ειδήσεων) да επιχειρήσουµε να 
δώσουμε κάποια απάντηση στα ερωτήματα 
που μπορεί να έχει κάϑε αναγνώστης. 

Πρώτον, όσον αφορά το διοργανωτή αυτού 
του σεμιναρίου. Γιατίτο ΑΠΕ: Ίσως να περίµε- 
νε να δει ένα τέτοιο σεμινάριο να γίνεται. να 
οργανώνεται και να χρηματοδοτείται από κά- 
ποιον апо τους μεγαλοεπιχειρηματίες του Tú- 
που, οι οποίοι ονειρεύονται υπερσύγχρονες 
εγκαταστάσεις, ιδιωτικές τηλεοράσεις, εφηµε- 
ρίδες. περιοδικά. ραδιοφωνικούς σταϑμούς 
κτλ. Ἡ από κάποιον από εκείνους που δεν παύ- 
ουν να λένε ότι ο Τύπος θρίσκεται σε ΚΡΙΣΗ 
και ότι κάτι πρέπει να γίνει (εννοώντας, θέθαια, 
ότι κάτι πρέπει να κάνει το κράτος). H, τέλος. 
από κάποιον που ζει апо τα χρήματα που του 
αποφέρει n συμμετοχή του σε στρογγυλές τρά- 
πεζες µε ϑέμα «Νέες Τεχνολογίες. Μέσα Μαζι- 
κής Ενημέρωσης — Τι πρέπει να γίνει;» — ôn- 
λαδή: «να µη γίνει τίποτε». 

Ναι, θέθαια. δα μπορούσε να είχε διοργα- 
νωδεί από κάποιον апо όλους αυτούς. αλλά 


MATRIX COMPUTER SYSTEMS 
АГ. ΠΑΡΑΣΚΕΥΗΣ 55 - ΧΑΛΑΝΔΡΙ: ΤΗΛΕΦΩΝΑ (6851177-6834596) 


Ειδικές προσφορές o£ PERSONAL COMPUTERS 


e OLIVETTI PRODEST PC 1 


2 DRIVES 3,5/720 KB 
MONITOR HANDAREX 
CENTRONICS /RS 232/ MOUSE 


ПРОГРАММАТА VIDEOCLUB UNISOFT 
ПРОГРАММАТА ΛΙΑΝΙΚΗΣ UNISOFT 


Του N. Γεωργιάδη 


αυτό δεν συνέθη και δυστυχώς δεν да συμθεί 
ποτέ. Διοργανώδηκε апо το АПЕ για τον a- 
πλούστατο λόγο — και πιστέυτε µας ότι είναι 
αλήθεια — ότι о Γενικός Διευθυντής του Пра- 
κτορείου υιοθέτησε τη δέση: «pour mieux 
informer, ilf faut mieux se former» («п καλύτε- 
рп πληροφόρηση προῦποϑέτει καλύτερη av- 
τοπληροφόρηση, δηλαδή μόρφωση»). Χρή- 
рата δεν υπήρχαν. Ζητήσαμε την οικονομική 
θοήϑεια της EOK (πιστεύοντας ór το πρόθλη- 
ра δεν υπήρξε ποτέ η έλλειμη χρημάτων, αλλά 
n έλλειμη ιδεών και ϑέλησης για την праүра- 
τοποίησή τους). 

Και тора το δεύτερο ερώτημα: γιατί αυτό το 
ϑέμα: Γιατί όλος ο κόσμος λέει. και έχουµε ba- 
ρεϑεί να το ακούμε, ότι ο Τύπος θρίσκεται σε 
κρίση, ότι n τηλεόραση θρίσκεται σε κρίση — 
και, όπως γίνεται πάντα. ζώντας µέσα στην κρί- 
ση καταλήγει κανείς να τη συνηϑίζει καὶ να un 
δέλει να бүгі апо αυτήν. Ζήτω λοιπόν n κρίση. 
Αλλά ιδού έρχονται οι Νέες Τεχνολογίες. Ка- 
ταφθάνει ο Ζορρό. Μόνο που κι αυτές προκα- 
λούν κρίσεις και δυστυχώς δεν διαδέτουµε av- 
ϑρώπους που να ξέρουν να διαχειρίζονται τις 
κρίσεις. O Antoine Griset (ένας апо τους διευ- 
ϑυντές της γαλλικής εφημερίδας Libération) 


ΧΑΜΗΛΕΣ ΤΙΜΕΣ ΣΕ: 


ө ΛΙΣΚΕΤΤΕΣ ΟΛΩΝ ΤΩΝ 
ΕΤΑΙΡΕΙΩΝ. 5,25", 35", ὁ 

ө μηχανογραφικό χαρτί 
ετικέττες 

ө μελανοταινίες εκτυπωτών 

© Καθαριστικά καλύμματα 

ө Λισκετοθήκες 


0 ΠΕΡΙΦΕΡΕΙΑΚΑ ΥΠΟΛΟΓΙΣΤΩΝ 


Εκτυπωτές - Plotters 
Hard disks 
ө Εκπαιδευτικά προγράµµατα 
ϱ Παιχνίδια 
© Joy-sticks 
ө Βιβλία - περιοδικά 


да µας πει στην εισήγησή του: «то να µάδουµε 
να διαχειριζόµαστε τις κρίσεις рас θοηϑά να 
αποτρέµουµε τη μεγάλη κρίση». Εμείς όχι pó- 
νον δεν κάνουμε τίποτε για να την αποτρέμου- 
µε αλλά είμαστε θαδιά χωμένοι σε αυτήν. Κι 
αυτό γιατί για να χρησιμοποιήσει κανείς τις 
νέες τεχνολογίες πρέπει πρώτα νατις γνωρίσει. 
Πρέπει πρώτα να εξετάσει, να ενηµερωδεί, να 
ελέγξει. να θελτιώσει. να συζητήσει. Και κατό- 
πιν να δημιουργήσει. Δεν υπάρχει άλλο αντί- 


ΤΕΛΟΣ 


DISK DRIVE 514 
ΓΙΑ ТОМ 


ΣΤΙΣ ΔΙΣΚΕΤΕΣ 3” 


δοτο στην κρίση. 

Αυτό επιχειρήσαµε να κάνουμε στο Ζάπ- 
πειο. Να πώς και γιὰτί επιλέξαμε τις Νέες Te- 
χνολογίες. Να γιατί πειραµατιστήκαµε µε τόσα 
διαφορετικά υλικά (hardware), pe τόσα διαφο- 
ρετικά λογισμικά προγράµµατα (software) — 
από τα πλέον απλά έως τα πλέον περίπλοκα. 
Μαζί µε νέους ανϑρώπους: µε δηµοσιογρά- 
φους και ип δημοσιογράφους: µε τεχνικούς 
και ερασιτέχνες -- που όλοι όµως είχαν ένα 
κοινό σηµείο αναφοράς: το πάδος γι αυτή тп 
δουλειά. Είχαμε θαρεδεί να ακούμε ατέρµονες 
συζητήσεις γύρω από το πώς και το γιατί, γύρω 
από τα υπέρ και τα κατά του νἰάθοίεχ. Εμείς 
απλώς κάναμε videotex. Και, καλό ñ κακό. 
μπορούμε τουλάχιστον να πούμε ότι αυτό είναι 
το vidoetex. 

Τώρα μπορούμενα συζητήσουμε. 

Το ίδιο ισχύει και γιατις θάσεις δεδομένων: 
και για τα πλεκτρονικά συντακτικά συστήµατα: 
και, εφέτος, για τη συνδετική εικόνα, то біутео- 
δίσκο καιτους δίσκους CD — ROM. Υποθάλα- 
ре, και συνεχίζουμε να υποθάλλουµε, όλα τα 
νέα µέσα μαζικής επικοινωνίας σε δοκιμασία. 
Διευρύνοντας την ενημέρωσή µας θαϑαίνουμε 
τις γνώσεις µας. Ίσως όλα τούτα να unv αντι- 
προσωπεύουν και πολλά. Μας επιτρέπουν ὁ- 
нос να πούμε, μαζί µε τους εκατό και πλέον 
δημοσιογράφους και νέους που εργάστηκαν 
μαζί µας, ότι οι Νέες Τεχνολογίες μπορούν να 
εφαρμοστούν στην Ελλάδα: ότι пара тіс αρνη- 
τικές έχουν και τις δετικές πλευρές τους: ότι 
πρέπει να χαράξουµε µια στρατηγική και ότι 


ΠΩΛΗΣΗ: 


ΧΟΝΔΡΙΚΗ 


ΛΙΑΝΙΚΗ 
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ШОРО 6128 


ΔΙΑΒΑΖΕΙ ΚΑΙ ΤΙΣ 2 ΠΛΕΥΡΕΣ ΔΙΣΚΕΤΑΣ 
ΓΙΝΕΤΑΙ A ΚΑΙ B DRIVE 
ΦΤΗΝΗ ΔΙΣΚΕΤΑ 150 ΔΡΧ. 
ΤΙΜΗ ΠΡΟΣΦΟΡΑΣ ΜΕΧΡΙ 31/1 


ΕΛ. ΒΕΝΙΖΕΛΟΥ 24, ΠΛΑΤΕΙΑ Ν. ΣΜΥΡΝΗΣ 


αυτό προὐποδέτει ανθρώπους. Τελεία και nav- 
λα. 

Πιστεύοντας λοιπόν ότι δεν είναι στις μεγά- 
λες εκδέσεις,τις οποίες επισκέπτονται τα αφεν- 
пка µε το πούρο τους καὶ το διερμηνέα τους 
για να παρακολουθήσουν το show που δίνει 
από καδέδρας ο μηχανικός της τάδε εταιρίας, 
show που έχει προετοιμαστεί επί µήνες µε ро- 
ναδικό στόχο να πείσει τα αφεντικά ότι αυτό 
που δεν καταλαθαίνουν πρέπει οπωσδήποτε 
να δείξουν ότι το καταλαθαίνουν αν δεν δέλουν 
να δεωρπδούν ηλίθιοι -- πιστεύοντας λοιπόν 
ότι беу είναι εκεί που да θρει κανείς αυτό που 
ζητά, σας προσκαλούμε να παρακολουθήσετε 
το πρόγραµµα του δικού µας show, ro οποίο 
έχει τουλάχιστον то πλεονέκτημα αφενός να 
μην είναι «στημένο» και αφετέρου να είναι ελ- 
ληνικό. Business is business. 


Γιάννης Φαρμάκης 
Μιχάλης Μεϊμάρπς 


H AMENT tov ΑΠΕ да ήϑελε να ευχαριστή- 
оет тіс εταιρίες: RAINBOW (Apple), SOFRA- 
GEM, LANTEC (Wang), INTELMATIQUE, 
CONTROL DATA (INTEL), OLIVETTI, ADA 
(ICL) και IBM που ανταποκρίθηκαν αφιλοκερ- 
бос στις ανάγκες σε software καὶ hardware. 


Την κεντρική διάδεση του θιθλίου έχει το 
θιθλιοπωλείο Παπασωτπρίου, Στουρνάρα 23, 
τηλ. 36341826 — 3609821 και σας το ovvi- 
στούµε µε κλειστά τα μάτια. 


computers 


THA. 9350672 


ΜΙΚΡΕΣ ΑΓΓΕΛΙΕΣ 


ΑΝΤΑΛΑΣΣΕΤΑΙ - ΠΩΛΕΙΤΑΙ 
software үа AMSTRAD παιχνίδια 
αντιγραφικά - εφαρμογές, vÀ@O- 
сес. Τηλεφωνήστε 5149841 Δημή- 
трпс 3 μ.μ. 


DISC DRIVE ррі-1 + Inter- 
face, για Amstrad 464 πωλείται, τι- 
μή ευκαιρίας. Τηλ. 3458409, Γιώρ- 
γος, Στράτος. 


ΠΩΛΕΙΤΑΙ CPC 6128 + Data- 
corder + Joystick. Προγράμματα 
κασέτες + δισκέτες + Obase ll + 
θιθλία + περιοδικά + A.R. Stu- 
dio + Discovery P. Πληροφορίες 
2915236, Παναγιώτης. 


ΠΩΛΕΙΤΑΙ Amstrad 6128 έγχρω- 
нос, κασετόφωνο, Joystick, γλώσ- 
σες, αντιγραφικά, παιχνίδια, θιθλία, 
έλεγχος δεκτός. Τηλ. 4121187 6- 
10 up., Σταύρος, τιµή έκπληξη!!! 


ΘΕΣΣΑΛΟΝΙΚΗ Amstrad 6128 
Software. Τεράστια ποικιλία Ga- 
mes-utilities апо 100-150 δρχ. 
Πληροφορίες (031) 435-117, Пай- 
λος. 


PC-1512 ΕΠΕΚΤΑΣΗ µνήµης 
στα σκοκ µόνο 10.000. 6unvn εγγύ- 
non. Τηλ. 8072111, Σωτήρης. 


AMSTRAD CPC 6128 επιτέλους 
όλα τα καινούρια games. Επίσης 
όλα τα καινούρια strip games σε 
χαμηλές τιμές. Σπύρος. τηλ. (0821) 
28837, Χανιά. 


AMSTRAD πωλούνται παιχνίδια 
(όλα τα καινούρια) ΠΑ 6128. Σε 
φτηνές τιµές γίνονται και ανταλλα- 
γές. Τηλ. (041) 255442, Λάρισα. 


AMSTRAD 464 πράσινος µε εγ- 
γύπση εταιρίας 5 μηνών αμεταχεί- 
ριστος 45.000. Αποστόλης, τηλ. 
6427492 εκτός μεσημέρι. 


ΑΝΤΑΛΛΑΣΕΤΑΙ software για 
amstrad 6128 (παιχνίδια, αντιγρα- 
φικά, εφαρμογές, επαγγελματικά). 
Τηλ. 2289468, Γιώργος (μετά τις 
7.30 μ.μ.) 


‚ AMSTRAD 6128 ανταλάσσονται, 
πωλούνται Adventure Infocom αν- 
τιγραφικά, games από Αγγλία. Πει- 
ραιάς, Σταύρος, απογευματινές ©- 
ρες, τηλ. 4133215. 


ΘΕΛΕΤΕ να αγοράσετε υπολογι- 
στή (Amstrad Spectrum, Comodo- 
ге κτλ.) o£ τιμές φανταστικές; Τηλε- 
φωνήστε paç. Drive 51, Reset Bu- 
ton και Original Software, για 6128. 


Με κάδε αγορά μεγάλες προσφο- 
ρές. Τηλ. 2932852, Δέσποινα. 


AMSTRAD 6128 Original Soft- 
ware. Πωλούνται, ανταλάσσονται 
utilities, games, εφαρμογές. Συνε- 
Хас ανανέωση апо το εξωτερικό. 


Τηλ. 2932852, Περικλής. 


ΠΩΛΕΙΤΑΙ Amstrad 6128 πράσι- 
νο monitor µε επαγγελματικά про- 
γράμματα, παιχνίδια, εφαρμογές 
και εγγύηση. Τηλ. 2932852. 


ΠΡΟΓΡΑΜΜΑΤΑ για ΙΒΜ PC 
και Compatibles: Γλώσσες, utili- 
ties, εμπορικά. Επίσης για Amstrd 
6128 games utilities, εμπορικά. 
Δημήτρης. τηλ. 4924320, απόγευ- 
μα. 


ΕΥΚΑΙΡΙΑ, ΠΡΟΣΟΧΗ! Πωλεί- 
ται Amstrad РС-1512 µε σκληρό 
δίσκο και έγχρωμο μόνιτορ. µε ná- 
ра πολλά προγράµµατα! (20 МВ +). 
Προσφέρεται και θοήϑεια στην ε- 
κμάϑησή του! Τιμή 265.000 δρχ. 
Τηλ. 2791089-2515490, Στέλιος. 


ΕΥΚΑΙΡΙΕΣ για ΟΡΟ 464, 664, 
6128. Πωλούνται: Σειριακό inter- 
face Amstrad 14.222 ТУ mo- 
dulator (6128, 664, 464) 7.JØ Ø, 
5/4 disk drive (нє τροφοδοτικό) 
180020. Πληροφορίες 10-12 
μμ.. Φοίθος. Τηλ. 2794204. 
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ΠΩΛΟΥΝΤΑΙ Joystick αμεταχεί- 
ριστο και 10 δισκέττες 3 ιντσών α- 
µεταχείριστες, αφορμάριστες 11.000 
δρχ. Τηλ. 2029096. 


ΠΩΛΕΙΤΑΙ Amstrad 464 aperta- 
χείριστος. παιχνίδια σε τιµή ευκαι- 
ρίας µόνο 35.000, λόγω αγοράς 
μεγαλύτερου μηχανήματος. Τηλ. 
7220928. 


ΠΩΛΟΥΝΤΑΙ Amstrad δισκέττες 
ре πολλά ποικίλα games εκπαιδευ- 
пка (έτοιμα πακέτα ñ χωριστά). 
Τηλ. (0441) 27185, Ντίνος. 


ΠΡΟΓΡΑΜΜΑΤΑ για ΙΒΜ PC 
καὶ Compatibles γλώσσες, utilities. 
πακέτα εμπορικά, εφαρμογές, да- 
mes καθώς και για Amstrad ΟΡΟ 
6128. Τηλ. 4698710, απόγευμα. 
Ανδρέας. 


AMSTRAD SOFTWARE avwa- 
λάσσεται τεράστια ποικιλία (ga- 
mes, αντιγραφικά, εφαρμογές. ε- 
παγγελματικά). Τηλεφωνήστε τώρα 
στο 4113628, Μαρία. 


ΠΑΚΕΤΟ ΠΡΟΓΡΑΜΜΑΤΩΝ 
Amstrad 6128 Γλώσσες (Turbo- 
pascal, Fortran, Assembly κλπ.), 
αντιγραφικά, επεξεργασία κειμέ- 
νου, αρχεία, тіпіо се, ПРО-ПО 
Επαγγελματικό, Utilities kat πολλά 
παιχνίδια (70 προγράµµατα). Ма- 


nuals, θιθλία, περιοδικά ΕΥΚΑΙ- 
ΡΙΑ! Τηλ. 7704277, Παρασκευή- 
Σάθθατο. 


ΠΩΛΕΙΤΑΙ Spectrum plus, Sa- 
пуо DR 201, 200 παιχνίδια, Inter- 
face 36.000. Τπλ. 4822143, Γιώρ- 
γος. Ακόμα πωλούνται 16 δισκέτες 
3 για Amstrad γεμάτες, δισκετοδή- 
кп, θιθλία και περιοδικά 19.000. 
Τηλ. 9819555, Δημήτρης. 


ΠΩΛΕΙΤΑΙ Amstrad 6128 και 
464 πράσινο monitor μαζί µε πολ- 
λά θιθλία, δισκέπες και κασσετό- 
φωνο σε τιµή ευκαιρίας. 

Τηλ. 8326474, μετά τις 9 ro θράδυ. 
Μανώλης. 


ΠΩΛΟΥΝΤΑΙ ΤΙΜΗ ΕΥΚΑΙ- 
ΡΙΑΣ Personal Computer Casio 
РВ-700 µε οϑόνη 4 γραμμών x 20 
και 16K Bvtes μνήμη στο κουτίτου. 
Pocket Computer Sharp-1211 µε 
Interface για µαγνητόφωνο και µαζί 
Printer 16 χαρακτήρων. ТІ-58 Рто- 
grammarce Calculator. Τιμές εξαι- 
ρετικά χαμηλές. Όποιος προλάθει. 
Τηλ. 8676862, 6-δμμ. 


ΠΩΛΕΙΤΑΙ Amstrad 464, Joy- 
stick, προγράμματα. θιθλία 40.000. 
Ακόμα έχουµε άφθονο software σε 
δίσκο. Τηλ. 4531547, απόγευμα. 
Γιώργος-Αντώνης. 


Οι αγγελίες στο περιοδικό η Ελληνική πλευρά 

του AMSTRAD κοστίζουν 400 δρχ. μέχρι 15 λέξεις. 
Για κάθε λέξη πάνω από тіс 15 χρεώνεστε µε 40 δρχ. 
παραπάνω. 


Θέλωνα δημοσιεύσω την παρακάτω αγγελία. 
Για τον σκοπό αυτό στέλνω την ταχυδρομική επιταγή 


Νο...... 


НЕ τοποσότων --........................ δρχ.που 


καλύπτει ακριβώς το κόστος της παρακάτω αγγελίας. 


АГГЕЛІА: ο ο М 
ΔΙΕΥΘΥΝΣΗ:.................. 
ο.” Τ.Κ-....-............ 
ΤΗΛΕΦΩΝΟ:................ ΑΡ. ΛΕΞΕΩΝ: 


ΣΥΝΕΡΓΑΖΟΜΕΝΑ COMPUTER SHOP МЕ ТОЕ.П.Т.А. 


Τα τεύχη µας µπορείτε να τα 
προμηθεύεστε από τα ακόπουθα 
καταστήματα µετα οποία συνερ- 
γαζόμαστε. 

O κατάβογος αυτός αφορά τα 
καταστήματα που συνεργάζον- 
TAI E TO περιοδικό µετά από OUL- 
φωνία. Σε περίπτωση που ενδια- 


φέρεστε να συμπεριβηφθείτε σ᾽ 


αυτόν τον катайоүо, επικοινω- 
νήστε μαζί µας στο τηβέφωνο 
5610039 Δευτ.-Παρ. 12-2 μ.μ. 


ΑΘΗΝΑ: 


Athens Computer Center, Σο- 
Πωμού 25 και Μπότσαρη, τηῇ. 
3609217 

Computer για σένα, Θησέως 
140, ТПА. 9592623-4 

Computer Market, Σοβωμού 26, 
ТПА. 

3611805 

Civildata Microcomputers, 
Στουρνάρη 49А και Πατησίων, 
τηῆ. 2604759 

Сгіғ іп Computers and 
Electronics, Μπότσαρη 2, 
3616285 

Ειρήνη Φαρασοπούβου, ЕЛ. BE- 
νιζέβου 35, N. Ιωνία 
Κβειδάριθµος θιθθιοπωβείο 
Μπόταση 5 тпӣ.3601076 
Κουνάνη Computers Στουρνά- 
ρα 20 και Ζαΐμη 106 82 2646725 
Matrix, Av. Παρασκευή 55, Χα- 
Πάνδρι, 6834596 – 6851177 

ΜΒ Computer Γρεθενών 12, Νί- 
коа 

Μικροκίνηση, Ιφικράτους 23, 
Παγκράτι 7016661 

Micropolis, Στουρνάρα 9, 
3633357 

Microbytes A.E., Στουρνάρα 9, 
ТПА. 3523497. 

Microland, Εμπόριο Η/Υ, Μπότα- 
cn 14. 

Μινιόν, Βερανζέρου 17 και Πατη- 
σίων, ТПА. 5238901 

Шашы; Computer X. Καθάριος 


Μεταμορφώσεως Σωτήρος, Κιάτο 
Βιθθιοπωβείο Παπασωτηρίου, 
Στουρνάρα 22, 2641826 


Ποβυτεχνειακό θιθβιοπωβείο, 
Μπόταση 14. 


σπουδαστής θιθβιοπωβείο, 
Στουρνάρα 23. 


Πῆαίσιο, Στουρνάρα 24, Ποβυτε- 
χνείο, ТПА. 264400! -4 


Plot + 1, Σοβωμού και Σουῆτάνῃ 
16, 2640541 


ROM Ψηφιακή, Σουβτάνη 19, 
3643636 


Tecnica Computers, ЕЛ. Βενιζέ- 
Aou και ΑΠατσάτων 1, 2755414 


Techonland, ΑΠκιθιάδου 112Πει- 
ραιάς 18532, 4131372 


ΑΛΕΞ/ΠΟΛΗ 


καραγιαννάκης Computer shop 
Βενιζέβου 59, ТПА. 26519 


BEPOIA 


Γρηγοριάδης Γιάννης Μητροπό- 
εως 25 


ΘΕΣΣΑΛΟΝΙΚΗ: 


Cyclos Microsystems, Αγγεπάκη 
39, 279574-266957 


General Systems, Προμηθέως 1, 
518242 


Elite A. Γούναρη 48 221106 


«Ευκβείδης» ΘΕΟΥ. Χαρίση 51 
822587 


ΣΥΝ-ΠΛΗΝ Av. Σοφίας 24 
260792 


ΕΛΚΟΜ Α.Ε. Μητροπόβεως Ί4 
279129 


S.B.S. Μοναστηρίου 41 525803 


ΚΕΝΤΡΟ ΥΠΟΛΟΓΙΣΤΩΝ, Δημ. Γού- 
ναρη 58, 214228 


MPS ΠοΠυτεχνείου 27, 
540246-536968 


Μπαρμπουνάκης & ZIA Εγνατίας 
105 θιθβιοπωβείο 


Μόῆχος Α.Ε. Τσιμισκή 10 


А. Μαβιάρης ἃ EIA Αριστοτέβους 
9 


ΒΟΛΟΣ: 


Μηχανογραφική Computer 
shop, [κῆαθάνη 98, 38362-45394 


Micropolis Βόβου Ανθίµου Γαζή 
153, 21222 


Πβηροφορική O.E., ΑΠεξάνδρας 
127 και Καρτάβη, 26898 


ΚΑΛΑΜΑΤΑ 


καραμήτσος Παυβίκος Nava- 
γούβη 14 TNA. 85645 


ΛΑΜΙΑ: 


Βιθθϑιοπωθείο А. Βαβσάμου E. 
Κακάθα Καποδιστρίου 23, 
022-22929 


Microland center Τρούμαν 3 - Al- 
νιάνων 2 


ΠΑΤΡΑ: 


Computer Practica ΕΠΕ, Μαιζώ- 
voc 47B και Ζαΐμῃ, 276691 


T£xvoxpóvocçc Computer ΟΕ, Na- 
τρέως 66-68, 274025 


Online System ΟΕ, Κορίνθου 371 
— 3ou Ναυάρχου 335807 


ΠΤΟΛΕΜΑΙΔΑ: 


Κων/νος Ποβυχρονίδης O.E., 
Ξενοφών Θεοφώβαχτος, 
ТПА. 50200. 


ΚΟΡΙΝΘΟΣ: 


Μηχανογραφική µΠεΏοποννή- 
σου Ε.Π.Ε., (Micropolis Κορίνθου), 
Θεοτόκη 70, 

ТПА. 074295808. 


ΛΑΡΙΣΑ: 


СНЕКООМ/ COMPUTER, Πατρό- 
KAOU 12. 


ΚΟΖΑΝΗ: 


Αμπαντζίδου σοφία, Κέντρο HR. 
Υποβογιστών Βοῖου Νεάποβη Ko- 
ζάνης. 


ΚΕΡΚΥΡΑ: 


Κοσμάτος Παιπετής Ο.Ε., The 
computer Houses, Марасӣй 42. 
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Ξεκινώντας апо то 0 


Του М. Λασκαρίδη 


Γύρω апо та graphics... Μέρος 10 


Αγαπητοί αναγνώστες (µπανάλ αρχή, αλλά a- 
παραίτητη) σήμερα да μιλήσουμε για τις εντο- 
λές που αφορούν τα graphics ка! τις εφαρµο- 
γέςτους. Αξίζει άλλωστε να µελετήσετε τα διά- 
φορα προγραμματάκια και τις τεχνικές που 
χρησιμοποιούνται και va Tiç υιοϑετήσετε για та 
δικά σας προγράµµατα. Αρχίζουµε λοιπόν. 

H οδόνη του CPC είναι σαν ένα σύστημα 
αξόνων µε 640 κάϑετα σηµεία και 200 οριζόν- 
τια. 

Ὑπάρχουν 3 modes, για 640 x 200 στήλες 
µε 2 χρώματα, 320 х 200 στήλες µε 4 χρώματα 
και 120 x 200 µε 16. 

Για να σχεδιάσουμε ένα σηµείο στην οδόνη 
αρκεί να δώσουμε τις συντεταγμένες του. 

PLOT x,u,Ç όπου x,y n οριζόντια και κάδετη 
συντεταγµένη και С то χρώμα. 

Για να σχεδιάσουμε µια ευθεία, γράφουμε 
PLOT x1,y1: DRAW х2,у2, όπου x1,y1 το on- 
μείο ап” όπου δ᾽ αρχίζει п ευδεία x2,u2 to on- 
peio που δα τελειώνει. Για να σχεδιάσουμε ένα 
παραλληλόγραμμο, φτιάχνουμε το εξής πρό- 
γραμμα: 
1@CLS 
2@ a=32@: B=2@Q@: х= 1@@:у=15@ 
3@ PLOTa,6,1: DRAW а +y, 6-u: DRAW а,6- 
u: DRAW а,6. 

Οι µεταθλητές а,6 ορίζουν τις ouvrerayué- 
νεςτου σημείου όπου да σχεδιαστεί то παραλ- 
ληλόγραμμο και χ είναι τα: μήκη των 
πλευρών. 

Κύθος: Για να σχεδιάδουµε έναν ково, χρη- 
σιμοποιούμε την παρακάτω ρουτίνα: 

1@ CLS 

20 а= 320: 6 = 200: х= 100: u =50: Z=40 
3@ PLOT а,6,1: DRAWR 2,2: DRAWR х, Ø: 
PLOT а,6: DRAW а,6-у: DRAW α--χ, 6-u: 
DRAWR 2,2: DRAWR συ: ОКАМ/К -ᾱ, -z: 
PLOT a +x, 6-у: DRAW a +x, 6: DRAW а,в. 

ΣΤο παραπάνω πρόγραµµα χρπσιµοποιεί- 
τα! και ша νέα εντολή, п DRAWR, n οποία δια- 
φέρει από την DRAW oro εξής σηµείο: γρά- 
φοντας DRAWR ху μετατοπίζεται ο δρομέας 
γραφικών κατά х,у. 

Παράδειγμα: Αν ypáyovpe: 

PLOT 100, 50: DRAW 120, 6@ 
(Ομοίως και µε την εντολή PLOTR) ισοδυνα- 
нгі ug PLOT 100, 50: DRAW 120, 60 Κύκλος- 
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έλλειψη: 

Μια και ο AMSTRAD δεν έχει έτοιμη εντο- 
Ал γι αυτόν τον σκοπό, αναγκαζόμαστε να χρη- 
σιμοποιήσουμε την εξής ρουτίνα: 

10 МОРЕ 1 

20 DEG 

30 т1=220:т2= 100) 

40 ORIGIN 320,200 

52 PLOTR πι], Ø 

60 FOR n= @ то 360 5ТЕР4 

70 DRAW т1*СО$ (n), m2* SIN (п), 1 
8@ NEXT. 

Εδώ έχουµε δύο καινούριες εντολές, την 
ПЕС καιτην ORIGIN. H DEG ϑέτει κατάσταση 
μοιρών για υπολογισμούς. Για να χρπσιµοποι- 
ήσουµε актіма χρησιμοποιούµετην RAD (δο- 
κιµάστε να αντικαταστήσετε την γραμμή 20 
με: 20 RAD...). 

Н εντολή ORIGIN ретадёте το σημείο 
(@,@) των γραφικών στο αντίστοιχο που да о- 
ριστεί από εμάς. 

Τώρα στο παραπάνω πρόγραµµα pe тіс µε- 
ταθλητές πι] και т2 (γραμμή 3) ορίζουμε 
το μέγεϑος και το σχήμα της έλλειμπς (εάν 
τη] = т2 да έχουµε κύκλο), ενώ στη γραμμή 
40) το κέντρο του κύκλου/έλλειμης. Τέλος 
στην γραμμή 6@ μεταθάλλοντας то 9ΤΕΡ, ре: 
ταθάλλουµε και την ταχύτητα σχεδιασμού. 
ΚΑΜΠΥΛΕΣ; 

Πληκτρολογήστετο παρακάτω πρόγραμμα: 
10 MODE 2 
20 Х-180 
30 а-320:6-100 
35 MOVE а,в 
40 DEG 
50 FOR N=1 TO 180 
60 DRAW п+а, SIN(n) * Χ 16,1 
7@ NEXT. 

H καινούρια εντολή αυτή τη φορά είναι n 
ΜΟΝΕ. Κάνει την ίδια δουλειά µετην PLOT, 
αλλά όµως δεν παίρνει τρίτη παράμετρο για 
χρώμα. Μετακινεί απλώς τον δρομέα γραφι- 
κών στο σημείο που ϑα του ορίσουμε. 

Στο παραπάνω πρόγραμμα, η μεταθλητή χ, 
στην γραμμή 2/2, είναι το ύψος της καμπύλης 
και παίρνει τιµές από -2@ Ø και 2027 Ø και οι 


36) 


μπω --- VEA 


АМЕ“АРТНТЕХ ΠΑΡΑΓΩΓΕΣ ΑΠΟ ΕΛΛΗΝΕΣ 
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ШЕРІҒІҒІ: 1.ҒИТАТҮН SaPYKEHTFIKNI ΘΒΙΣΒΘΤΘΗΙΘΙ 

2.ΕΒΙΑΥ͂ΣΝ ONIIBOTOMIRI МЕ ARAO Τρ090 
3. 
4 


*EHIAYIN ΘΦΕΥΣᾺΣ QAHPSI FIRPTHMENNI ΚΑῚ ARG TA AYO AKPA 
S.EHI0YIH ΕΜΝΡΘΣΒΘΤΘΜΙΒΣ 
6.ӨНМІСҮРГІН КЕТ ХҒІРІУМӘ ΑΡΧΕΙΟΥ ΤΡΙΓΞΗΦΜΕΤΡΙΚΑΗ 


Ж га ΤΠΦΦΟΓΙΣΤΕΣ ; AMSTRAD CPC 6128 , AWSTRAÐ РС-1512 W 
TASIIÐ HPOL/IMSY : TORBO PASCAL 


ΟΙ ΔΗΜΙΟΥΡΓΙΕΣ ΤΩΝ ΑΝΕΞΑΡΤΗΤΩΝ 


ΠΑΡΑΓΩΓΩΝ = ; 

` ТАГӨРТИ; Ган: 2 

ΣΠΙΤΙ ΣΑΣ ТАХҮЛРОМІКА ОМАНА πο. το жаның - 

(ΜΕ ΑΝΤΙΚΑΤΑΒΟΛΗ) I λα τει ποσα Ὃ СОТТЫН ΜΕ ΤΟΠΟΓΡΑΦΙΚΕΣ ΕΡΓΑΣΙΕΣ 
Παραγωγή Τιμή Δισκέτα + πρὀδραμµμα ж manual : 1700 δρχ. 

Warrior οἱ the беа.................. (СРС disk)......... 1950 δρχ. 
Mini Word Ртосеввог................ (СРС &5К)......... 2.850 δρχ. 
Πακέτο τοπογραφικών εφαρμογών....... (РС, CPC аіѕк)..... 1.700 δρχ. 
ο ο... (CPC &5К)......... 1950 δρχ. 
Midnight бїопез........... ........ (СРС аіѕк)......... 1.800 δρχ. 
Πακέτθ µε 2 Graphics Adventures. . . . . | (СРС disk)... ...... 1.700 δρχ. 


Τα προγράµµατα ñ περιφερειακά των ανεξάρτητων παραγωγτών 
καλύπτονται από εγγύπση και όλα έχουν πρωτοφανή ποιότητα και ευ- 
κολία χρήσπς. 


Ναι! Θα ήδελα να µου στείλετε µε αντικαταθολή τα 
προγράµµατα που έχω σημειώσει. Θα πληρώσω την а- 
На των προγραμμάτων και τα ταχυδρομικά έξοδα. 


E. κουκλε ! 


t ое σένα, µιλαω..θελες να Ἀἄνωρίσες τα ΜΥΣΤΙΚΑ ΤΗΣ ΒΥΧΤΑΣ: 
Θέλεις να απολαύσεις µια ξεχωριστή θραδια: 


Ай yes oe προσκαλω ото "MIDNIGHT STORIES.” 


ΤΟ ΠΡΩΤΟ DIGITIZED SHOW жа AMSTRAD СРС ». 


HMEPOMHNIA........................................ 


H πλήρης διεύδυνση για τις παραγγελίες σας ñ τις 
επισκένεις σας είναι: Εκδόσεις Ανάδρασπ, Περιοδικό: 
H Ελληνική πλευρά του Amstrad, Μπόταση 9, бос όρο- 
poc, 106 82 — Εξάρχεια, τηλ.: 36.100.349. 

Δευτέρα - Παρασκευή 12-2 μ.μ. και 
Τρίτη, Παρασκευή 5-7 μ.μ. 


ΖΗΤΕΙΣΤΕ ΣΗΜΕΡΑ ΚΙΟΛΑΣ TO _ 


MIDNIGHT STORIES 
Σε MODE υψηλής ανάλυσως xa ΜΕΓΑΛΥΤΕΡΗ ΕΥΚΡΙΝΕΙΑ. 
ην το χάσετε ! 
Μόνο 1800 δρχ. (σε δισκετα ΑΗΞΟΕΤ) και χωρίς MANUAL ! 


> Ma ενήλικους (ἄνω των 18 και µε дерт καρδια.) 


KANTE ΕΝΑ AQPO АЛО ΤΙΣ ΑΝΕΞΛΡΤΗΤΕΣ 
ΠΑΡΑΓΩΓΕΣ ΤΟΥ͂ Е. Л.Т. А ΣΤΟΥ͂Σ ΦΙΛΟΥΣ YA? 
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TOY Е,П.Т.А 


ΜΙΝΙ WORD 

PROCESSOR 

Amstrad CPC 
For your 
Printer E 


THN SUSSANA... STRIP 31. H ΧΡΙΣΤΟΥΓΕΝΝΙΑΤΙΚΗ 
Για σας που ауалате kz: ἐπε ass 7" 
την ταχύτητα....... ΤΡΙΑΝΤΑ ΜΙΑ KAI ΜΕΧΡΙ ΤΡΕΙΣ ΠΑΙΚΤΕΣ 
Τιμή 2.850 Δρχ. ΜΕ ΣΤΑΤΙΣΤΙΚΑ ΣΤΟΙΧΕΙ͂Α ΑΝΑ ΠΑΣΑ ΣΤΙΓΜΗ ΚΑΙ 
ΜΑΝΑ ΤΗΝ SUSSANA. 
ΜΟΝΟ 1.950 δρχ. απότα γραφεία του Ε.Π.ΤΑ. ñ ταχυδρομικά. 


ΟΤΑΝ ΤΟΥΡΚΙΚΑ ΑΕΡΟΠΛΑΝΑ, ΕΛΙΚΟΠΤΕΡΑ, ΠΛΟΙΑ, ΥΠΟΒΡΥΧΙΑ, ΤΟΡΠΙΛΕΣ, ΝΑΡΚΕΣ, 
ΑΠΕΙΛΟΥΝ ΤΟ ΑΙΓΑΙΟ, ΚΑΙ ΓΙΑ ΔΕΥΤΕΡΗ ΦΟΡΑ ΤΗΝ ΚΥΠΡΟ ΕΣΥ ΤΙ ΚΑΝΕΙΣ; 

ТО 022 HELLAS ΠΕΡΙΜΈΝΕΙ ΤΙΣ ΟΔΗΓΙΕΣ ΣΟΥ͂, ΚΑΙ ΤΟΥ͂Σ ΚΑΤΑΛΛΗΛΟΥ͂Σ ΧΕΙΡΙΣΜΟΥΣ ΣΟΥ͂, 
ΜΕΧΡΙ ΤΗΝ ΘΡΙΑΜΒΕΥΤΙΚΗ ΕΞΟΥΔΕΤΕΡΩΣΗ ΤΟΥ ΕΧΘΡΟΥ !!! 


S E A WARRIOR LI 


ΠΑΙΧΝΙΔΙ ME ΠΛΟΥΣΙΑ ΓΡΑΦΙΚΑ KAI ΗΧΟ (ΠΡΩΤΟΤΥΠΕΣ ΣΥΝΘΕΣΕΙΣ TOY N. ΛΑΣΚΑΡΙΔΗ) 
ΦΤΙΑΓΜΕΝΟ ΕΞ ΟΛΟΚΛΗΡΟΥ ΣΕ LASER BASIC (ОСЕАН) 


ΜΟΝΟ 1.950 δρχ. απο το Е.Л.Т.А 
Ε.Π.Τ.Α. 
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Γύρω από τα 


graphics... 
p33 


μεταθλητές а,6 στην γραμμή 3@ είναι ot συν- 
τεταγμένες του σημείου ап όπου δα ξεκινά п 
καμπύλη. 
ΓΡΑΦΙΚΕΣ ΠΑΡΑΣΤΑΣΕΙΣ 
Με το παρακάτω πρόγραµµα μπορούμε να 
έχουμε την γραφική παράσταση οποιασδήπο- 
τε συνάρτησης δίνοντας τον τύπο της 
10 INK 0,0 BORDER@: ІМК 
1,26:|ΝΚ2,11. 
22 ΡΕΟ 
30 DEF FNy= (SIN (71 κ) *7*x)/1@ 
40 ΜΟΡΕ 1 
50 ORIGIN 320,200 
62 РІ.0Т-320,(2,2: DRAW 640), Ø: PLOT 
0,200: DRAWR Ø, 400 
70 х--320: ΜΟΝΕ х, ΕΝυ 
80 FOR х--320 ТО 320) 5ТЕР4 
90) DRAW x, Е№у,1 
100 NEXT 
Αν δέλουµε у αλλάξουμε τον τύπο της ov- 
νάρτησης, να τον κάνουμε π.χ. F(x) = συν(χ)- 
1020), αντικαδιστούµε τη γραμμή 3@ µε την: 
30 DEP ЕМу-СО5(х)“120. 
Πληκτρολογήστε τώρα то παρακάτω πρό- 
γραμμα: 
16 МОРЕ 1: INK @,@: ІМК 1,26: INK 2,11:: 
ІМК 5,2 
20 DEG 
32 FOR M=3@ ТО Ø 9ΤΕΡ-2Φ 
40 MOVE 320 +m, 200 
50 FOR п= Ζ ТО 360 5ТЕР5 
62 DRAW 322 + т*СОЅ(п), 
200-170 *51№(п),1 
70 х= ХРОЅ:у = ҮРОЅ: DRAW 320, 
220, 2ΕΚ:ΜΟΝΕ x,y 
8@ n(k+ 1) MOD 2 
9@ NEXT 
10@ NEXT 


Αφού ϑαυμάσετε το αποτέλεσµα, ρίξτε µια 
ματιά ото lisling. Εκεί υπάρχουν οι εντολές 
XPOS, ΥΡΟς. Δίνοντας x = XPOS n μεταθλη- 
τή x да πάρει την τιµή της οριζόντιας δέσης 
του δρομέα γραφικών, ενώ δίνοντας u= YPOS 


Ачрочи5. 


10 MODE 1 

12 ORIGIN 320.200 

15 DEG 

17 п=0: МОМЕ СО5 (п) #150. SIN) #150 

20 ΕΟΚ n=0 ТО 260 STEF 2 

20 ОҒАН С05 (п) 0150.514 (п) #150. k+1:x=XP0S:v=YP0S: 
DRAWF 50. ΞΟΙΡΕΑΜΗ 0.-20: Каме о. 

40:Р0Т х,у 

35 к= (+1) MOD 3 


40 МЕХТ 

10 MODE 1:ІМк 0.0: ВОҒГЕЕ 0:1МК 1.11:1МК 2.26:INK. 3.18 
20 ORIGIN 720.200 

20 МОЧЕ 0.0 


40 ҒО п=0 ΤΟ 260 STEP 1 


50 DRAW (5ΙΝ(78ῃ) «7 κ) /10. (СО (7 жп) #79) 10.041: хаХРОб 
1У=ҮРОЅ: КАМЕ 20.20: РЕАМЕ 


720.20:рКАШЕ -29,-20:DRAWK 20, -20:РООТ х,у 

60 k=(k+1) MOD τ 

70 ΝΕΧΤ 

10 MODE 1:ІМк 0.0: ВОҒРЕЕ Өзіме 1.11:1МЕ 2.ТөзіМЕ 2.4 
20 DEG 


20 ORIGIN 220.200 

40 МОУЕ 100.0 

50 FOR п-і ΤΟ 250 STEP 4 

60 DRAW 1004С05 (п). 100851М'п). К+1:х=ХЕО$:/=ҮРО5:ОЕАШЕ: 
-COS (п) #50. -SIN (n) #0: DRAW 

Е 10, 10:DRAWE -10,10:DRAWE -10.-10:DRAWF 10. -10: ркаш 
R COS(n)#120.SIN(n)*120:M0VE «.ν 

70 ке жі) MOD 3 

80 NExT 


— ` sVÜ  —>—  — _ .  .  _ 


δα γίνει το ίδιο για την κατακόρυφη δέση. Δί- 
νοντας MOVE 320, 2@@, δα έχουµε και 
XPOS = 320, ҮРО5=20 Ø. 

Τώρα σθήστε тп γραμμή 20) και αντικατα- 
στήσετε στην γραµµή 5@ το «ЅТЕР 5» µε 
«5ТЕР 4». Καμία σχέση µε το προηγούμενο 
σχήμα. ) 

Και τώρα κάτι άλλο πληκτρολογήστε το na- 
ρακάτω πρόγραµµα: 

12 ΜΟΡΕ 2 

20 LOCATE 1,25: PRINT "AMSTRAD"! 
LOCATE 1,1 

3@ FOR N=16 TO Ø STEP-2 

4@ FOR M= @ TO 56 

5@ IF TEST (M,N)=1 THEN PRINT CHR 
(143); ELSE PRINT ” 3. 
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6@ NEXT: PRINT: NEXT 

Εδώ έχουµε µια νέα εντολή, την TEST, n o- 
ποία κάνει την εξής δουλειά: Μας δίνει την 
«κατάσταση του μελανιού» στο δοσμένο ση- 
peio της οδόνης. Αν π.χ. δώσουμε MODE 1: 
PLOT 320, 222, 2 και μετά 
PRINT TEST (320, 2@@) δα µας δοδεί ο 
αριϑμός 2. Υπάρχει επίσης και п εντολή 
ΤΕΘΤΗ, n χρήση της οποίας παρομοιάζεται u 
αυτήν των PLOTR και DRAWR. 

Με αυτή την εντολή τελείωσε το Α΄ µέρος 
της στήλης. 

Σας δίνω επίσης μερικά προγραμματάκια 
που αξίζει να τα πληκτρολογήσετε και να τα µε: 
λετήσετε. Στο επανειδήν μέχρι το επόμενο 
τεύχος. 


Η ΕΛΛΗΝΙΚΗ ΠΛΕΥΡΑ ΤΩΝ 


= PERSONA 
COMPUTERS 


LETTRIX 


Letter Quality γράμματα σε dot-matrix εκτυπωτή 


Το Lettrix είναι éva resident πρό- 
γραμμα που τυπώνει κείµενα στον ε- 
κτυπωτή. Μπορείτε να σχεδιάσετε το 
δικό сас character set ή να χρησιμο- 
ποιήσετε ένα апо та 20 сет nou δίνον- 
ται µαζί (Ελληνικά, Ρωσικά, Εβραϊκά, 
επιστημονικά σύμβολα κ.τ.λ.). Το πρό- 
γράμμα τυπώνει µια γραμμή περνών- 
τας τη δύο φορές µε Full propotional 
spacing. Τα κείµενα που εκτυπώνει 
Φαίνονται σαν να έχουν βγει από ε- 
κτύπωση μαργαρίτας. 

Όταν φορτώνουμε το Lettrix του 
δίνουμε σαν παράμετρο τα ονόματα 
των character set που θέλουμε να 
χρησιμοποιήσουμε. Μπορούμε να Φορ: 
τώσουμµε μέχρι 7 character set (χρησι- 
μοοιούν γύρω στα 70 К μνήμης). 

Για να βρεθούμε στις επιλογές του 
Lettrix πατάµε τα πλήκτρα [SCROLL 
LOCK] + [ESC]. Εκείυπάρχουν 14 επι- 
λογές τις οποίες μπορούμε να χρησι- 
μοποιήσουμε και µέσα σ᾽ ένα κείµενο, 
T.X. TO κείµενο [This is italic/ τυπώνει στον 
εκτυπωτή πλάγιους χαρακτήρες. Αφού ĝia- 
λέξουμε πώς δέλουµε να τυπώνεται то Kei- 
НЕУО στον εκτυπωτή, πατάµε το πλήκτρο 
[ESC] για να επιστρέψυµε εκεί που si- 
растау πριν μπούμε στο Lettrix. 

Ας αναφερθούμε тора ті επιλογές 
υπάρχουν στο Letrix. 


Αν πατήσουµε το |’ το Lettrix £- 
νεργοποιείται. Αντίθετα, αν πατήσου- 
με το 1” το Lettrix αγνοεί όλους τους 
χαρακτήρες pe тп slush( )που Kata- 
λαβαίνει το πρόγραµµα. Αν πατήσου- 
M£ то πλήκτρο΄’Α΄ το Alarm χτυπάει σε 
περίπτωση που δεν υπάρχει χαρτί 
στον εκτυπωτή. Γιανα απενεργοποιή- 
σουµετην επιλογή αυτή πατάμε то 'а'. 
Για να χρησιμοποιήσουμε το propo- 
tional spacing πατάμε το’Ρ’καιγιανα 
το απενεργοποιήσουµε. Για Table Ali- 
gh χρησιμοποιούμε τα πλήκτρα ο Τ’ 
και 'U. Για Double Strike χρησιµο- 
ποιούµε τα πλήκτρα 'D' και 'd'. 


Γαι Boldface χρησιμοποιούμε τα 
πλήκτρα 'B' και 'b'. Για μεγαλύτερα 
γράμματα χρησιμοποιούμε τα πλή- 
κτρα 'H' και ’Π’. Για Wide γράμματα 
χρησιμοποιούμε τα πλήκτρα 'W' και 
'w'. Για Compress χρησιμοποιούμε та 
λήκτρα’Ο’ και’σ’. Για Underline γράμ- 
ната χρησιμοποιούμε τα πλήκτρα 'U' 
και 'u”. Για Footnote χρησιμοποιούμε 
τα πλήκτρα 'F' και 'f'. Για Subscript 
γράμματα χρησιμοποιούμε τα πλή- 


κτρα ’5’ και 's'. 


Όλες τις επιλογές αυτών των үрар- 
μάτων μπορούμε να τις χρησιμοποιή- 


«σουμε µέσα από κάποιο κείµενο. Mé- 


σα από το Lettrix μπορούμε ακόμανα 
ορίσουμε διάφορα χαρακτηριστικά 
που αφορούν τον εκτυπωτή όπως, πό- 
σους χαρακτήρες και πόσες γραμμές 
ανά (утоа πρέπει να τυπώνει. Κάτι άλ- 
λο πολύ χρήσιμο που προσφέρει το 


38 


ЧУ, 
5% 
ЖЫ 


< 


{з 
Ах 


Гейгіх είναι ότι µπορεί να τυπώνει κεί- 
µενο µέσω ενός 7 -- bit interface. 


test for broadway 


TEST FOR MICR 
tegt for olgelich 
ШЕБІ ΕΙ (АБСЕ СК 


τέστ ма ελληνικά 


ΥΠΑΡΧΕΙ... 


ν΄ АПООНКН ν΄ ΠΡΟΜΗΘΕΥΤΟΛΟΓΙΟ 
ν΄ ΠΕΛΑΤΟΛΟΓΙΟ ν΄ ΕΣΟΔΑ - ΕΞΟΔΑ 
ν΄ ΤΙΜΟΛΟΓΗΣΗ ν΄ ΣΤΑΤΙΣΤΙΚΗ 


ν΄ ΛΙΑΝΙΚΕΣ ΠΩΛΗΣΕΙΣ v ΠΑΡΑΓΓΕΛΙΑ 


Με την εγγύηση της 


IcLrNDSDr T 


To No 1 SOFTWARE HOUSE 
ΤΖΩΡΤΖ 34 & ΣΤΟΥΡΝΑΡΑ. ΑΘΗΝΑ 10682 Τηλ. 3632161 - 3624866 


COMPUTER logic’s.a. 


SOFTWARE HOUSE 


| 1001 ΝΥΧΤΕΣ 


Παρά τις αντικειμενικές δυσκολίες 
που αντιμετωπίζει ο νεοανερχόµενος 
τομέας, όπως η απόσταση από ταπαγκό- 
оша κέντρα έρευνας και τεχνολογίας 
και η ελληνική δυσπιστία, η COMPUTER 
LOGIC χρησιμοποιώντας σαν όπλο την 
πιο εξελιγμένη τεχνολογία και το επι- 
στηµονικό της δυναμικό, κατάφερε у A- 
ποδείξει πόσο μπορεί να ωφεληθεί η ελ- 
ληνική µικροµεσαία επιχείρηση από τη 
σύγχρονη πληροφορική τεχνολογία. Σε 
μια εποχή όπου το κέρδος µιας επιχείρη- 
σης και κατ᾽ επέκταση η άνοδος TNG εθνι- 
κής οικονοµίας δεν µπορεί να εξασφαλι- 
στεί παρά µόνο µε τη βελτιστοποίηση 
των διαδικασιών λειτουργίας της επιχεί- 
ρησης, η αξία της άµεσης και σωστής 
πληροφόρησης αποκτά ιδιαίτερα µεγά- 
àn σημασία. Πολύ περισσότερο όταν au- 
τή η πληροφόρηση προσφέρεται σε τό- 
σο χαμηλό κόστος, ώστε να γίνεται προ- 
σιτή σε μεγάλο αριθµό επαγγελματιών. 

> αυτό τον τοµέα προσφορά της CO- 
MPUTER LOGIC στάθηκε σημαντική, ó- 
ταν παράτην τρέχουσα τάση για εύκολο 
κέρδος από την εισαγωγή ξένων проїб- 
ντων, διάλεξε το δύσκολο αλλά παρα- 
γωγικό δρόμο της κατασκευής και προ- 
σφοράς «ελληνικών λύσεων». 

Σήμεραη COMPUTER LOGIC είναι A- 
νώνυµη Εταιρεία µε κεφάλαιο 27.000.000 
και έχει στο ενεργητικό της πάνω από 
600 επιτυχείς εγκαταστάσεις проүраџ- 
µάτων σε περισσότερες από 200 επιχει- 
ρήσεις που καλύπτουν ευρύ φάσμα бра- 
στηριοτήτων. 

Τα προγράµµατα που προσφέρει κα- 
λύπτουν µεγάλο µέρος των αναγκών 
του λογιστηρίου της παρακολούθησης 
πελατών, αποθεμάτων, µισθοδοσίας κ.λπ. 
και επεκτείνονται ολοένα καιπερισσότε- 
ро προς την κατεύθυνση εξειδικευµέ- 
νων προβλημάτων όπως π.χ. η διαχείρι- 
ση ενός καταστήµατος λιανικής, έλεγ- 
хос και η κοστολόγηση παραγωγής κ.λπ. 

Н επιτυχία της προσπάθειάς της о- 
φείλεται όχι µόνο στη δυνατότητα των 
προγραμμάτων να δίνουν λύση σε συγ- 
κεκριμένα προβλήματα, όσο και στην t- 
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διαίτερα µεγάλη σημασία που έχει δοθεί 
στον παράγοντα «επαφή ανθρώπου -- 
μηχανής». 

Σε αντίθεση µε τα κλασικά προγράμ- 
рата υπολογιστών που απαιτούσαν για 
τη λειτουργία τους την ύπαρξη εξειδι- 
κευμένου προσωπικού, τα προγράμμα- 
τα που προσφέρειη COMPUTER LOGIC 
έχουν σχεδιασθεί έτσι, ώστε ν᾽ απευθύ- 
νονται στον ίδιο τον επιχειρηματία, τη 
γραμματέα, το λογιστή ή τον απλό χρή- 
στη προσωπικών υπολογιστών. 

Н επικοινωνία ре то σύστηµα και η op- 
γάνωση των πληροφοριών που προσφέ- 
ρονται τόσο στην οθόνη του υπολογι- 
στή, όσο και στο χαρτί, είναι μελετημένη 
µε Ерүоуошка κριτήρια, ώστε να δίνει 
την αίσθηση της φιλικότητας στο χρή- 
στη, να επιτρέπει τη γρήγορη εξοικείω- 
ση και να τον προστατεύει από λανθα- 
σμένους χειρισμούς. 

Στόχος των προσπαθειών της Ο0- 
MPUTER LOGIC o? αυτό τον τομέα, είναι 
να εξαλειφθεί το ενδεχόμενο δέος των 
μη ειδικευµένων στους υπολογιστές χρη- 
στών (στους οποίους άλλωστε απευθύ- 
νονται τα προγράμματά της) μπροστά 
στο «διαβολικό μηχάνημα», ώστε ο σύγ- 
χρονος άνθρωπος να µπορεί να δεχθεί 
τον υπολογιστή σαν ένα απλό εργαλείο 
της καθημερινής του δουλειάς. 

Καθ’ όλη τη διάρκεια της πορείας της 
n COMPUTER LOGIC napapéve ανεξάρ- 
τητη από οποιονδήποτε κατασκευαστή 
ή εισαγωγέα υπολογιστών και αυτοδυ- 
vaun όσον αφορά τα προγραμματιστικά 
εργαλεία που χρησιμοποιεί. Αυτό της 
προσφέρει τη δυνατότητα να ελέγχει 
πλήρως την ποιότητα των προϊόντων 
της και να μπορεί να εγγυάται για την 
αξιοπιστία τους και αποτελεί ένα ακόμα 
βήμα στην πρόοδο της ελληνικής τεχνο- 
λογίας. 

Το λειτουργικό σύστημα που χρησι- 
μοποιήθηκε μέχρι τώρα είναι του UCSD 
- PSYSTEM και η γλώσσα προγραμμα- 
τισμού η UCSD — PASCAL. 

Ηπείραπου αποκόµισεη COMPUTER 
LOGIC από τις μέχρι τώρα εγκαταστά- 


σεις της, την οδήγησε 0” ένα νέο τοµέα 
πρωτοπορίας στους μικροῦπολογιστές, 
την κατασκευή τυποποιηµένων προϊόν- 
των. 

Όπως συμβαίνει 0” όλους τους το- 
μείς, έτσι και η πληροφορική δεν μπορεί 
ναικανοποιήσειτις ανάγκες του κατανα- 
λωτή για φθηνά, αξιόπιστα και δοκιµα- 
σμένα προϊόντα, παρά µόνο µε τη μαζική 
παραγωγή τυποποιηµένων προγραμμά- 
των. Στον τοµέατης πληροφορικής αυτό 
σηµαίνει ότι κάθε αγοραστής ενός TUNO- 
ποιηµένου προγράµµατος «πακέτου» É- 
χει την εξασφάλιση ότι η λύση που του 
δόθηκε, πάνω στην οποία ενδεχόμενα 
θα βασίσει τη λειτουργία της επιχείρη- 
σής του, έχει ήδη δοκιμασθεί σε μεγάλο 
αριθµό εγκαταστάσεων και επομένως η 
πιθανότητα λαθών είναι μειωμένη στο ε- 
λάχιστο. 

Η πληροφόρηση που παρέχει το πα- 
κέτο, βγαλμένη από πείρα τόσων προη- 
γούμενων χρηστών, μπορεί να του δίνει 
δυνατότητες που οίδιος δεν είχε καν αν- 
τιμετωπίσει στην οργάνωση της δικής 
του επιχείρησης. Επιπλέον, η орооџор- 
φία των προγραμμάτων επιτρέπει στον 
κατασκευαστή ευκολότερη εξέλιξη και 
βελτίωσή τους, προς όφελος πάλι του 
χρήστη. Τέλος, µε την κατασκευή πακέ- 
των αυξάνει σημαντικά η ποικιλία των 
διαθέσιμων προγραμμάτων, µε αποτέ- 
λεσµα να µπορεί ο χρήστης να βρει την 
καταλληλότερη λύση ανάµεσα στις προ- 
τεινόμενες επιλογές. 

Το ΚΕΦΑΛΑΙΟ πιστεύει απόλυτα ότι 
η κατασκευή και προώθηση στην Ελληνι- 
кї αγορά τυποποιηµένων πακέτων προ- 
γραμμάτων αποτελείτο µόνο δρόµοπου 
θα επιτρέψει στους κατασκευαστές TPO- 
γραμμάτων να είναι ανταγωνιστικοί σε 
ποιότητα και παροχές, συγκρινόμενα με 
κατασκευαστές προερχόμενους από χώ- 
рес τεχνολογικά προηγμένες στην Ka- 
τασκευή Ηλεκτρονικών Υπολογιστών 
και θα οδηγήσει στην ανάπτυξη ελληνι- 
κής βιομηχανίας πληροφορικής µε στό- 
χο όχι µόνο την Ελληνική αγορά, αλλά 
και τη διεθνή αγορά. 


ΓΕΝΙΚΗ ΛΟΓΙΣΤΙΚΗ 
(SOFTWARE) 


Το κεντρικό menu... 

1. Διαχείριση Σχεδίου 

. Διαχείριση ΄Αρθρων 
.Ἑκτυπώσεις 

. Περιοδικές εργασίες 

. Οικονομική διαχείριση 
«Τέλος προγράµµατος 


О οι +. Οϱ) n> 


1. Διαχείριση Σχεδίου: 

Μέσα оп” αυτή την επιλογή µπορού- 
µε уа κάνουμε εργασίες από τα πάγια 
στοιχεία των λογαριασμών (κωδικοποίη- 
ση, χαρακτηριστικά κ.λπ.) που περιλαμ- 
βάνουν όλεςτις σχετικές καταστάσεις £- 
λέγχου. Τα οικονομικά στοιχεία που £p- 
φανίζονται είναι καθαρά για ενηµέρωση 
και δεν είναι δυνατή η διαχείρισή τους. 


2. Διαχείριση ΄Αρθρων: 
>” αυτή την επιλογή διεκπεραιώνον- 
ται οἱ ημερήσιες κινήσεις. 


3. Εκτυπώσεις: : 

Όλες οι πληροφοριακές καταστά- 
σεις (καρτέλλες, ισοζύγια, καθολικά) 
μπορούν να εμφανισθούν είτε στην οθό- 
νη είτε στον εκτυπωτή. 


4. Περιοδικές Εργασίες: 

Εδώ υπάρχουν οι εργασίες που γί- 
νονται κατά διαστήματα όπως: η δήλω- 
ση του Φ.Π.Α., η ενηµέρωση από τους O- 
ΡΙΖΟΝΤΕΣ, οι ορισμοί κάποιων параџё- 
τρων κ.λπ. 


5. Οικονομική Διαχείριση: 

Н επιλογή αυτή περιλαμβάνει οικονο- 
μικές αναφορές όπως: ισολογισµό, TPO- 
βλέψεις, οικονομική πορεία κ.λπ. 

Ας δούμε λίγο τι περιλαμβάνει κάθε 
επιλογή: 

Στη Διαχείριση Σχεδίου έχουµε: 1) 
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Λογιστικό Σχέδιο (Δημιουργία, Προβο- 
λή, Μεταβολές, Διαγραφή λογαρια- 
σμών, Εκτύπωση σχεδίου και περιόδων). 
2) Έλεγχος Σχεδίου (δυνατότητα εξέτα- 
σης καταχωρήσεων και επαλήθευση µε 
κριτήριο την ύπαρξη των κατάλληλων 
λογαριασμών). 3) Ημερολόγιο (Ορισµός 
ημερολογίων τα οποία θα ενημερώνον- 
ται από τις εγγραφές). 4) Βοηθητικά 
Στοιχεία (Εκτύπωση συγκεντρωτικής 
κατάστασης τιμολογίων). 

Στην επιλογή Διαχείριση Αρθρων 
βλέπουμε: 1) Αρθρα Χρήσης (Καταχώ- 
ρηση -- Δημιουργία λογιστικών εγγρα- 
φών). 2) Άρθρα Απογραφής (Απογραφή 
υπολοίπων). 3) Προβολή (Εμφάνιση 6- 
λων των στοιχείων ενός άρθρου). 4) Με- 
ταβολές (Μεταβολές στοιχείων ενός áp- 
θρου, Διαγραφή επιμέρους εγγραφών 
του άρθρου). 5) Εκτύπωση ελέγχου (Ε- 
κτύπωση κατάστασης των άρθρων που 
μας ενδιαφέρουν. 

Στις Εκτυπώσεις έχουµε: 1) Ημερολό- 
για (Αναλυτική, Συγκεντρωτική, Γενική 
εκτύπωση εγγραφών βάσει ηµεροµη- 
νίας). 2) Ισοζύγια (Πρωτοβάθμια, Δευτε- 
роВабша, Τριτοβάθμια, Συγκεντρωτικά 
ισοζύγια). 3) Καθολικά (Εκτύπωση ανα- 
λυτικών ισοζυγίων). 

Στην επιλογή Περιοδικές εργασίες έ- 
χουμε: 1) Γέφυρα ΟΡΙΖΟΝΤΙΩΝ («үбфи- 
ра» επικοινωνίας µε το πρόγραµµα OPI- 
ΖΟΝΤΙΕΣΙΔΙΑΧΕΙΡΙΣΗ ΠΩΛΗΣΕΩΝ). 2) 
Αντιστοίχιση Εγγραφών. 3) Δήλωση Φ. 
П.А. (Ορισµός σχεδίου δήλωσης Φ.Π.Α., 
εκτύπωση σχεδίου, εκτύπωση μηνιαίας 
δήλωσης). 4) Κλεισίματα (Κλείσιμο πε- 
ριόδου, προσωρινό κλείσιμο έτους, ορι- 
στικό κλείσιμο έτους, άνοιγμα νέου é- 
τους). 5) Βοηθητικά προγράμματα (Δια- 
γραφή άρθρων, ορισμός παραστατικών, 
ημερομηνίες, ομάδες λογαριασμών, 
στατιστική αρχείων). 

Στην Οικονομική Διαχείριση βρί- 
σκουµε: 1) Ισολογισμός (Δυνατότητα o- 
Ρισμού των παραμέτρων για τον ισολο- 
γισμό της επιχείρησης, εκτύπωση σχε- 
δίου, εκτύπωση ισολογισμού, εκτύπωση 
διορθωτικών ποσών). 2) Καθορισμός 


Δεικτών. 3) Οικονομική Πορεία (Εμφάνι- 
ση στην οθόνη συνολικών χρεώσεων και 
πιστώσεων για κάθε έναν από τους λο- 
γαριασμούς). 4) Ενηλικιώσεις υπολοί- 
πων (Έλεγχος των υπολοίπων των πελα- 
τών ή προμηθευτών). 9) Προβλέψεις υ- 
πολοίπων (Πελατών ñ προμηθευτών). 6) 
Χρηματική Ροή (Εκτύπωση προβλέψεων 
χρηματορροής). 


ΓΕΝΙΚΗ ΛΟΓΙΣΤΙΚΗ 
(HARDWARE) 


Το απαραίτητο Hardware για va δου- 
λέψει το πρόγραµµα της Γενικής Λογι- 
στικής είναι: α) ένας υπολογιστής από- 
Лота συµβατός µε ΙΒΜ РС/ХТ ñ ΙΒΜ АТ 
που διαθέτει λειτουργικό σύστηµα Μ5 
DOS µε 640 K RAM, ένα disk drive των 
360 K bytes και ένα σκληρό δίσκο των 10 
M bytes. B) έναν εκτυπωτή που να µπο- 
ρεί να τυπώσει 132 χαρακτήρες σε µια 
γραμμή (κανονικοιύς ή συμπιεσμένους). 


Σημειωμέτον, πως το πρόγραμμα µπο- 
ρείνα τυπώνει σε 2 διαφορετικούς εκτυ- 


πωτές που είναι συνδεδεμένοι στον ίδιο 
υπολογιστή. 


Προαιρετικά μπορούμε να χρησιμο- 
ποιήσουµε tape — buckup για αντίγρα- 
фо ασφάλειας, σταθεροποιητές τάσεως 
για την περίπτωση διακοπής ρεύματος. 

Αναλώσιμα — αξεσουάρ: δισκέτες á- 
δειες, μηχανογραφικό χαρτί, µελανοται- 
νίες, εκτυπωτή κ.λπ. 


Στατιστική αρχείων 


Σύνολο Χρησιμ. Лаб 
- Λογαριασμοί 300 172 128 
. Σύνολα 300 128 172 
. Εγγραφές 1000 723 277 
. Αντιστοιχ. 100 0 100 
. Διευθύνσεων 50 


σι Q ro — 


5. YrarioriKñn Ар 


0. Προηγούμενο 


(C) Computer Logic V 1.01 C.M.D. ΑΕΒΕ 


Προβολῆ λογαριασμών (τρέχουσα χρήση) 
Κωδικός : 30-00-000 Τίτλος : ΜΠΕΚΑΣ ἃ ΣΙΑ OE 
------------- ο ο ο ο... 
Συμπεριφορά : Міктдс(Х/П) Επίπεδο δικαιοδοσίας : 0 


Χαρακτηριστικὰ : Πελατών 
Περίο 
Anoy 
Ιαν. 87 
Φεβ. 87 
Μαρ. 87 
Апр. 87 
Μαι. 87 
Ιουν 87 
Ιουλ 87 
Αυγ. 87 
Σεπ. 87 


χρέωση <-- --> Πίστωση 


оомо n + QO ro — O 


Δεκ. 


(C) Computer Logic V 1.01 


C.M.D. AEBE AE 3-8-87 11:50:18 


ΓΕΝΙΚΗ ΛΟΓΙΣΤΙΚΗ 
(ΥΠΟΣΤΗΡΙΞΗ) 


Κάθε μέρα για 5 μέρες την εβδομάδα 
απότις 9 -- 5.30 και στον αριθµό 9522812 
οι υπεύθυνοι τεχνικοί της Computer Lo- 
gic είναι στη διάθεση των πελατών για 
να λύσουν οποιοδήποτε πρόβλημα χρή- 
σης παρουσιαστεί. 

Στα γραφεία της Computer Logic γί- 
νεται εκπαίδευση 2 στελεχών της επιχεί- 
ρησης που αγόρασε κάποιο πακέτο. 


Κάθε πακέτο συνοδεύεται από ипер- 
κατατοπιστικό manual (Γενική λογιστι- 
κή = 260 σελίδες). 

Στην περίπτωση που ο αγοραστής KÁ- 
ποιου πακέτου υπογράψει σύμβαση βελ- 
τιώσεων πακέτου έχει δικαίωµα να προ- 
μηθεύεται κάθε βελτιωμένη έκδοσή του 
δωρεάν. 


Για περισσότερες πληροφορίες, de- 
mo, επισκέψεις, η διεύθυνση της Co- 
mputer Logic είναι: 

Συγγρού 212, 176 72 Αθήνα 


Σκίτσο από διαφημιστική καταχώρηση της Computer Logic. 


Τηλ.: 9525207 — 8. 
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die Αλοσκόφης 


Μέρος lo 
LOTUS 1-2-3 


To LOTUS 123 είναι από τα λίγα εκείνα προγράμματα 
που κάνουν την αγορά ενός υπολογιστή απόλυτα χρήσιμη. 
Το πρόγραµµα µπορεί να εκτελεί γρήγορα πράξεις επί 
πινάκων και να επεξεργάζεται αρχεία δεδοµένων. Έχει ε- 
πίσης τη δυνατότητα να προγραμματιστεί, ώστε να γίνονται 
όλα αυτά αυτόματα. 

У αυτή τη στήλη да ασχοληδούμε µε πρακτικές εφαρ- 
ноүёс rov LOTUS 123 σε πολλούς και διάφορους τομείς. 
Θα προσπαδήσουµε να έχουµε πάντα µια ολοκληρωμένη 
εφαρµογή μετέτοιο τρόπο δοσμένη, που να µπορεί κανείς 
να κάνει τις δικές του/της μετατροπές. 

Σήµερα αρχίζουμε µε µια εφαρµογή που δα ενδιαφέ- 
ρει πολλούς. Ένα πρόγραµµα όπου 8a κρατάµε τους λο- 
γαριασμούς µιας πιστωτικής µας κάρτας (δηλαδή το λεγό- 
μενο πλαστικό χρήμα). Μπορεί ακόµα αντί κάρτας να ei- 
ναι λογαριασμός τράπεζας, προμηδευτού, ñ ακόµα και... 
λογαριασμός τσέπης. 

Φοριώνουμε λοιπόν το 123 και μόλις φανεί στη δεξιά 
πάνω γωνία του ΒΕΑΡΥ αρχίζουμε. Καϑορίζουμε το πλά- 
тос кад στήλης σε 8 (ή παραπάνω αν да ξεπεραστούν 
τα 99 εκατομμύρια). Διαλέγουμετην κυυέλη В1 όπου 64- 
ζουμετον τίτλο της κάρτας. έστω ότι είναι n KARTA. Karte- 
θάζουμετο δρομέα (κούρσορα;) pe то κάτω вос μία δέ- 
ση ακριθώς κάτω και θάζουµετη διπλή = = = = γραμμή. 
Πώς: Πατάμετο καὶ μετά το = (ίσον). 

Στο B4 γράφουμε ΕΞΟΔΑ. Φέρνουμε δηλαδή το бро: 
μέα στη δέση Β4, πατάμετο (πάνω από το ϐ) για να 
κεντραριστεί ο τίτλος, γράφουμε ΕΞΟΔΑ και πατάμε το 
ENTER. 

Στο C4 (ша δέση δεξιά), γράφουμε µε τον ίδιο τρόπο 
ΠΛΗΡΩΜΕΣ. Πιο πέρα, στο D4, γράφουμε ҮПОЛОІ- 
ПО. Μεταφέρουµε το δρομέα κάτω ακριθώς апо κάδε ti- 
τλο (ΕΞΟΔΑ, ΠΛΗΡΩΜΕΣ, ΥΠΟΛΟΙΠΟ) και τους υπο- 
γραμμίζουμε όπως είχαμε κάνει προηγουμένως. αλλά av- 
τή τη φορά µε το μείον (-) αντί του ίσιον (=). 

Τώρα да паре στη στήλη D όπου είναι το ΥΠΟΛΟΙ- 
ΠΟ. Στο D7 да δώσουμε τον τύπο + Ε7 -- ЕТ που γίνεται 
ως εξής: Патар το μεγάλο (+) που θρίσκεται στο δεξιό 
άκρο του πληκτρολογίου και Ε7, μείον Ε7, ΕΝΤΕΒ. Στο 
D8, да γράψουμετον πρώτο σύνδετοτύποτης εφαρµογής. 
Εκείνο που δέλουµε είναι να γραφεί το υπόλοιπο μόνον 
όταν υπάρχει δεδομένο στη στήλη В ñ С (ΕΞΟΔΑ 
ΠΛΗΡΩΜΕΣ). 

Χρησιμοποιούμε εδώ тп λογική συνάρτηση @IF. Má- 
µε το δρομέα στη δέση DB και πληκτρολογούμε: 


ΩΙΕ (ЕЗЁОКЁЕ8, Εδ--Ε8, 0) ENTER. 


Λέμε δηλαδή, ΑΝ υπάρχει κάτι στο E8 ñ ото F8, τότε 
αφαίρεσε από το Е8, το F8, αλλιώς να µην κάνεις τίποτε. 
Το % θρίσκεται πάνω апо το 3 отп δέση της Λίρας. 

Έστω ότι προθλέπουµε 60 ΕΞΟΔΑ και ΕΣΟΔΑ σε 
πρώτη φάση, και δέλουµε уа επαναλάθουμε τον τύπο στη 
στήλη D μέχρι τη σειρά 67. Mg то δρομέα στο 08, πλη- 
κτρολογούμε / για τις εντολές, διαλέγουμε то COPY. 

Εμφανίζεται στην οδόνη το μήνυμα Enter range to сору 
ЕКОМ:Р8. 08. Πατάμε ENTER διαλέγοντας έτσι την κυ- 
μέλη D8 και εμφανίζεται το μήνυμα Enter range to сору 
TO:D8. Για να καδορίσουµε την περιοχή όπου δέλουµε 
να αντιγραφεί ο τύπος, μετακινούμε το δείκτη ото D9 και 
πατάμε την τελεία. Έτσι κρατάμε την κυυέλη. Εμφανίζον- 
ται δύο τελείες. Μετακινείστε τώρα το δρομέα µε ro θέλος 
μέχρι την κυψέλη 067. Βλέπουμε ότι φωτίστηκαν όλες οἱ 
κυψέλες απότο D8 μέχριτο 067. Τώρα πατάμετο ENTER 
καὶ γίνεται n αντιγραφή που ϑέλουμε. 
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Αν εξετάσετετις куу Лес που аупүрауане, δα δείτε ότι 
έγινε διόρδωση των διευδύνσεων του αρχικού τύπου. Δη- 
λαδή στην κυμέλη D20 ο τύπος да είναι: 


ΩΙΕ (E20#OR#F20, Ε20--Ε20. 0) 


Εμφανίζονται отп στήλη µηδενικά, αφού δεν υπάρχουν 
τιμές στις στήλες B και C. Αργότερα да δούµε πώς да 
απαλλαγούμε από αυτά τα μηδενικά. 

Στο E4 да δημιουργήσουμε τη στήλη ΣΥΝΕΞ (ΣΥΝΟ. 
ЛО ΕΞΟΔΩΝ) και στην F4 ҮМПАНР (ΣΥΝΟΛΟ ΠΛΗ: 
РОМОМ) pe tov τρόπο που είδαμε προηγούμενα. O τύπος 
στο Ε7 да γίνει + Β7, δηλαδή πρώτα το µεγάλο πλήκτρο 
+ бейа στο πληκτρολόγιο, και B7 (+ В7) ENTER. Στο 
F7 да μπει ο τύπος + С7. 

Στο E8 (μετακινούμε εκεί το δρομέα), ισχύει ο τύπος: 


@Ё (В8#ОВ#СВ, @SUM 597. Β8). 0) 


Το $B$7 δηλώνει στο πρόγραμμα ότι ϑέλουμε η διεύ- 
ϑυνση B7 να είναι απόλυτη και να µην µεταθληδεί κατά 
την αντιγραφή του τύπου. 

Αντιγράφουµε όπως πρώτα τον τύπο. Δηλαδή /С EN- 
TER, πατάμε στο Е9, τελεία, µετο θέλος κατεθάζουµε pé- 
Хр! την κυμέλη E67, και ENTER. 

Στο F8 да πάει ο τύπος: 


@IF (B8#OR#C8, @SUM ($C$7...C8), 0) 


Αντιγράφουμε τον τύπο μέχρι την xuuéàÀn F67. 

Αν δεν δέλουμε να µην φαίνονται ot στήλες ре та σύνο- 
λα μπορούμε уа тіс αφαιρέσουμε апд την οδόνη ως εξής: 
/ W C και διαλέγουµε то HIDE. Αν п κυμέλη F8 εἶναι 
n φωτισμένη, да δούμετο μήνυμα Specify column to hide: 
F8. Патане την τελεία και μετακινούμε το δρομέα αριστε- 
ра στη στήλη E (éon ЕЗ) και πατάμε ENTER. Όπως да 
δούμε. ot στήλες E και F εξαφανίστηκαν. 

Για να µην µπερδευόµαστε, ας θάλουµε διπλή γραμμή 
από B6 μέχρι το D6. Φωτίζουμε την κυμέλη B6 και με 
το γνωστό τρόπο =. Πάμε στο Сб και στο D6. 

Τώρα μπορούμε να βάλουμε τα στοιχεία μας. Έστω 
λοιπόν ότι έχουμε το πρώτο έξοδο 10000 δραχμές. Πάμε 
στο B7 και πληκτρολογούμε 10000 ENTER. Αν εξοφλή- 
σαμε μετά τις 9000, θάζουμε ото C8 9000. Me to ENTER 
εμφανίζεται στη στήλη D ro υπόλοιπο 1000. Έστω ότι με- 
τά ξοδέψαµε апо την κάρτα 2000. Πάμε στην πιο κάτω 
γραμμή кат στη δέση В9 όπου γράφουμε 2000. Με το 
ENTER θλέπουμε το υπόλοιπο στην τρίτη στήλη 3000. 

Όπως είπαµε στην αρχή, οι τίτλοι των στηλών μπορεί 
να εἶναι άλλοι όπως π.χ. ΕΙΣΠΡΑΞΕΙΣ, ΠΛΗΡΩΜΕΣ. Υ. 
ΠΟΛΟΙΠΟ ñ ΕΔΩΣΑ. ПНРА, ΕΧΩ κλπ. 

Στο ἆλλο σηµείωµά µας δα δούµε πώς θάζουν преро- 
μηνίες, και πώς да καδαρίσουµετην οδόνη από та περιττά 
μηδενικά, 


ΤΙΤΛΟ 


ΥΠΟΛΟΙΠΟ 


9000 1000 


Κλειδώματα και 
ξεκλειδώματα: 
Μικρά Μυστικά. 


Αναμφισβήτητα έχετε κάποτε στη 
ζωή σας χρησιμοποιήσει το μηχάνη- 
μά σας για έναν άχρηστο, αντιπαρα- 
γωγικό και χρονοβόρο σκοπό: Για να 
παίζετε παιχνίδια. Σίγουρα δε κάποιο 
από αυτά δεν λειτουργούσε κάτω 
από το λειτουργικό σύστημα, αλλά α- 
παιτούσε από σας να τοποθετήσετε 
τη δισκέτα στο drive A: Και να πατή- 
σετε Ctrl— ΑΙί-- Del. Όταν κάνατε 
ΒΙΒγιανα δείτετιπεριέχειη δισκέτα, 
το μηχάνημα σας απάντησε µε Sector 
not found ή Сепеап failure ή κάποιο 
άλλο παρομοίως εξωτικό μήνυμα. E- 
πίσης, η δισκέτα δεν αντιγραφόταν 
ЦЕ την εντολή COPY ή ὈΙΘΚΟΟΡΥ του 
λειτουργικού συστήµατος και YU αυ- 
τό αναγκαστήκατε να καταφύγετε 
στη χρήση κάποιου από εκείνα τα Ú- 
ποπτα προγράµµατα που έχουν σαν 
µόνο λόγο ύπαρξή τους την αντιγρα- 
φή άλλων «κλειδωμένων» δισκετών. 
Αυτό που παρατηρείτε είναι απλώς 
µια όψη ενός πολέμου που διεξάγε- 
ται χρόνια τώρα. Αντίπαλοι είναι τα 
διάφορα software houses από τη µια 
και κάποιοι αμετανόητοι hackers από 
την άλλη. Οι κατασκευαστές προσπα- 
θούν να εμποδίσουν τους χρήστες уа 
κάνουν αντίγραφα των проүрациа- 
των τους, ενώ οι hackers πιστεύουν 
ακράδαντα дтіта καλά προγράµµατα 
πρέπει να βρίσκονται στη διάθεση 
όσο γίνεται περισσότερων. Έτσι, pó- 
λις κάποια εταιρεία διαθέσει το προϊόν 
-- κλειδωμένο Φυσικά --- αρχίζουν 
διάφοροι «τρελοί» να ξενυχτάνε αγω- 
νιζόμενοι να ξεπεράσουν τα συστή- 
рата προστασίας του κατασκευαστή. 


Μέχρι τώρα νικάνε οι hackers. Δεν υ- 
πάρχει ακόµη σύστημα προστασίας, 
το οποίο να είναι εντελώς απρόσβλη- 
το από κάθε είδους επέμβαση. Πάντα 
είναι δυνατόν να πιαστεί κανείς από 
κάπου για να αρχίσει τη διαδικασία 
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Νίκος Νασούφπς 


ξεκλειδώματος, διότι ακριβώς κά- 
πως, κάπου θα πρέπει να μπει στη 
μνήμη το πρόγραμμαπροστασίας για 
να εκτελεστεί. Αν μπορέσουμε να 
«συλλάβουμε» το πρόγραµµα τη στιγ- 
μή που είναι στη μνήμη, αλλά πριν ε- 
κτελεστεί, τότε κάναμε ήδη το πρώτο 
βήμα. Είναι βέβαια δυνατόν να υπάρ- 
χει κάποιο άλλο πρόγραμµαπου про- 
στατεύει το σύστηµα προστασίας. 
Δεν έχουµε τότε, παρά уа στρέψου με 
τις προσπάθειές µας κατά του φύλα- 
κα του φύλακα. Αυτό µπορεί να συνε- 
Χιστεί όσες φορές θέλουμε. Έτσι, 
µπορεί να υπάρχει πρόγραµµα που 
προστατεύει πρόγραµµα, που προ- 
στατεύει πρόγραµµα κ.τ.λ. Ο σκοπός 
του κατασκευαστή είναι να µπερδέ- 
Ψει σε τέτοιο σηµείο τον επίδοξο ha- 
cker, που αυτός να εγκαταλείψει τελι- 
ка κάθε προσπάθεια. Ας δούµε όµως 
μερικούς βασικούς κανόνες προστα- 
σίας, τους οποίους πρέπει να έχετε υ- 
πόψη σας τόσο όταν προστατεύετε 
όσο και όταν αποπειράστε να διεισ- 
δύσετε στα απόκρυφα κάποιου προ- 
γράμματος: 

* H σαφήνεια όχι µόνο δεν αποτελεί 
αρετή, αλλά είναι αμαρτία βαρύτατη, 
που πληρώνεται µε τη µορφή «σπα- 
σμένων» αντίτυπων. 

Ποτέ µη γράφετε 


ΒΕΤ 
Όταν µπορείτε να γράψετε: 


ΜΟΥ ВХ, WORD РТА CS: |VALUEJ 
POP AX 
XOR АХ, ВХ 
ЈМР АХ 
VALUE DW ο 


Av µάλιστα προσθέσετε µια σειρά 
ακατανόητων, άχρηστων και περιτ- 


τών λογικών και αριθµητικών πράξε- 
ων, τόσο το καλύτερο. Σε κάτι τέτοιο 
βοηθούν πολύ τα MACROS που υπο- 
στηρίζει ο MACRO ASSEMBLER της 
Microsoft. Για παρδειγµα, µπορείτε 
να Φτιάξετε ένα ΜΑΟΒΟ µε όνοµα 
@RET, το οποίο αντικαθιστά την εν- 
τολή ВЕТ. Αυτό που κάνει είναι να õn- 
μιουργεί µια διαδοχή боо το δυνατόν 
πιο περίπλοκων εντολών, οι οποίες 
κάνουν ό,τικάνεικαιη ΒΕΤ. Έτσι, δεν 
χάνει σε σαφήνεια το listing του προ- 
γράμματός σας, το .СОМ όµως ap- 
χείο θα είναι πραγματικός προγραμ- 
ματιστικός εφιάλτης. Όμοια ισχύουν 
και για τις υπόλοιπες εντολές. 

* Ποτέ µην παραμένετε για πολύ ώρα 


στο ίδιο μέρος. Προσπαθείστε να γε- 


μίσετε το πρόγραμμά σας µε όσο γί- 
νεται περισσότερα JUMP γίνεται. 
Στα ενδιάμεσα βάλετε άσχετο coding 
το οποίο δεν εκτελείται ποτέ, μοιάζει 
όµως τρομερά χρήσιμο/κρίσιµο. Ka- 
Ай ιδέα είναι να γράψετε ένα MACRO 
µε όνομα, ας πούμε @SCRABBLE το 
οποίο δεν κάνει τίποτε άλλο από το 
να δημιουργήσει έναν ηλεκτρονικό 
λαβύρινθο από τον οποίο θα περάσει 
η εκτέλεση του προγράµµατος πριν 
ξαναβγεί από την άλλη μεριά: 


Μον ΑΗ, 9 

Μον DX, OFFSET MSG 

@SCRABBLE ;εδώ θα βγει 1K ηλίθιο, άχρηστο 
жає πολύπλοκο coding. 
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ΙΝΤ 21Η 


"Μπορεί να µην το έχετε ξανακού- 
σει, αλλά ο καταχωρητής SP είναι κα- 
ταχωρητής γενικής χρήσης. Αν και η 
INTEL επιμένει για το αντίθετο, εσείς 
μην πτοείσθε. Εντολές του είδους: 


Μον ΑΧ, SP 
ΧΟΒ ΑΧ, CS: [BX] 
DIV CL 

MUL AL 

MOV SP, AX 

RET 


τείνουν va αποθαρρύνουν τους πε- 
ρίεργους. 
* Όλα αυτά δεν έχουν αξία αν κά- 


Κλειδώματα και 
ξεκλειδώματα: 
Μικρά Μυστικά. 


ποιος έξυπνος μπορείνα χρησιµοποι- 
ήσει το DEBUG και να εκτελέσει τον 
κώδικά σας εντολή-εντολή. Ευτυχώς 
πουυπάρχουν μερικοίτρόποι µε τους 
οποίους μπορούμε να κάνουμε το 
πρόγραμμά µας “debug – proof”. A- 
κολουθούν οι κυριότεροι. 


* Έχοντας κάνει то coding πολύπλο- 
κο και δυσνόητο είναι σχεδόν σίγου- 
po ότι о hacker Ва βρεθεί στον nepa- 
σµό να χρησιμοποιήσει την εντολή 
“р” του debug ñ va βάλει κάποια bre- 
akpoints µέσα στο πρόγραμμα. Βάλ- 
τε σε στρατηγικά σηµεία του προ- 
γράμματος ή καλύτερα ακόµα και 
στην service ρουτίνα του timer ένα 
προγραμματάκι που ψάχνει για το 
byte CCH (ІМТ 3-- breakpoint inter- 
rupt) µέσα στο coding και κατά проті- 
µηση σε όλα τα return adress από 
κλήση υπορουτίνας. (Εκεί βάζει ο de- 
bug το ΟΟΠ όταν δώσουμε εντολή 
” p”). Όπου εντοπιστεί αυτό το ένοχο 
byte καλό είναι να αντικαθίσταται µε 
90h (NOP). O hacker θα παρατηρήσει 
έκπληκτος ότι το πρόγραμμα θα а- 
γνοήσει τα breakpoints που έβαλε 
Kat Ва συνεχίσειτην εκτέλεσή του KA- 
νονικά. Προσέξτε ο έλεγχος για CCh 
να είναι διακριτικός. 


* Μια άλλη πολύ καλή τεχνική προ- 
στασίας είναι η κωδικοποίηση του 
προγράμματος µε κάποιο τρόπο και 
η αποκωδικοποίησή του αμέσως πριν 
την εκτέλεση. Μια αρκετά απλή μέθο- 
δος είναι να γίνουν κάποια κομμάτια 
ΧΟΗ µε κάποιον αριθµό και να βρί- 
σκονται κωδικοποιημένα µέσα ото 
.COM αρχείο. Όταν αρχίσει п εκτέλε- 
ση κάποια ρουτίνα θα τα ξανακάνει 
ΧΟΗ µε τον ίδιο αριθµό και επειδή 


(X XOR A) XOR X = А 


θα εμφανιστεί το αρχικό µας πρό- 
үрацџа εκεί που πριν υπήρχαν aka- 
τανόητα bytes χωρίς νόημα. Σημειώ- 
στε ότι δεν μπορούν να μπουν break- 
points σε µια κωδικοποιημένη περιο- 
χή, διότι η αποκωδικοποίηση θα dup- 
περιλάβει και συνεπώς θα αλλάξει, 
και το byte του breakpoint. Εννοείται 
ότι το πρόγραµµα αποκωδικοποίη- 
σης είναι το αδύνατο σηµείο αυτής 
της µεθόδου και γι’ αυτό πρέπει να 
διακατέχεται από διακριτικότητα και 
ευγένεια. Κάθε χυδαιότητα µπορεί 
να αποδειχτεί μοιραία. 


* Φροντίζετε να αλλάζετε όσο γίνε- 
ται πιο συχνά τα ανύσματα διακοπών 
1ка З поо χρησιµοποιείο DEBUG. Έ- 
χετε 640К µνήµης, στα οποία µπορεί- 
τενατα στείλετε. Δεν αποτελεί πλεο- 
νεξία να τα θέλει ένα πρόγραµµα ou- 
νέχεια για τον εαυτό του” Καλή ιδέα 
είναι να χρησιμοποιήσετε το inter- 
гирї του timer για να εξασφαλίζετε 
ότι τα ανύσματα беу δείχνουν στο Í- 
διο σηµείο περισσότερο από ένα δέ- 
κατο του δευτερολέπτου. 


"Μετρήστε µε τη βοήθεια του ρολο- 
γιού του συστήµατος το χρόνο που 
χρειάζεται κάποιο κομμάτι να εκτελε- 
στεί. Μεγάλες αποκλίσεις μπορούν 
να σημαίνουν ότι κάποιο breakpoint 
καθυστέρησε το πρόγραμμά µας. 


* Εκµεταλλευτείτε το prefetch queue 
του 8088. Οι εντολές 


MOV BYTE РТА [NEXT], 90h 
;90H είναι ο κωδικός για NOP 
NEXT DB СЭН 
;C3H είναι ο κωδικός για RET 


ισοδυναμούν µε НЕТ όταν το πρό- 
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γραμμα εκτελείται κανονικά, ενώ Ó- 
ταν κάνουμε trace συμπεριφέρονται 
σαν ΝΟΡ. 

Αυτή η μέθοδος είναι πολύ καλή, 
κυρίως διότι δεν είναι, ακόµη, ευρέως 
γνωστή. Ο λόγος που λειτουργεί εἰ- 
ναι ότι ο 8088 διαθέτει μια μνήμη 4 
bytes µέσα στην οποία φυλάει τις ε- 
πόμενες προς εκτέλεση εντολές για 
να αποφύγει συχνές προσβάσεις στη 
μνήμη. Αν όµως µια εντολή αλλάζει 
κάποιο από τα 4 επόμενα bytes της 
μνήμης δεν πρόκειται να αλλάξουν 
και τα αντίστοιχα bytes που βρίσκον- 
ται µέσα στο prefetch queue (έτσι ο- 
νομάζεται η μνήμη του 8088). Για το 
λόγο αυτό ο 8088 ба εκτελέσει την ev- 
τολή που υπήρχε στη μνήμη πριν γί- 
νει η αλλαγή, δηλαδή θα αγνοήσει 
την αλλαγή που έγινε. Έτσι, στο πα- 
ραπάνω παράδειγµα, ακόµη και αν 
αλλάξουμε το ΒΕΤ σε ΝΟΡ, ο 8088 θα 
εκτελέσει ΒΕΤ. Όταν όµως βρισκό- 
μαστε σε trace mode όµως εκτελούν- 
ται άλλες εντολές μεταξύ δύο διαδο- 
χικών του προγράµµατος. Έτσι, το 
ΒΕΤ που υπήρχε στο prefetch queue 
χάνεται για να δώσει τη θέση του στο 
МОР που θα βρει о 8088 στην ἴδια θέ- 
ση μνήμης όταν αποπειραθείνα duve- 
χίσει την εκτέλεση. Αν έχουµε βάλει 
τα κατάλληλα πράγματα πάνω στη 
στοίβα μπορούμε να εξασφαλίσουµε 
ένα θεαματικό crash στην περίπτωση 
που κάποιος hacker κάνει trace. 
Μειονέκτηµα της μεθόδου είναι ότι 
αν κάποιος γνωρίζει το κόλπο, το ξε- 
περνάει εύκολα. Επίσης τα 4 bytes 
prefetch queue που διαθέτει ο 8088 
δεν αφήνουν χώρο για αβρότητες. 

Καμιά από αυτέςτις µεθόδους δεν 
είναι αξεπέραστο εμπόδιο για τον 
πραγματικά αποφασισμένο hacker. 


Το πρόγραµµα αυτό µας το έστειλεο 
αναγνώστης µας Αναστάσιος Ταχτατ- 
ζής. Είναι ένα πρόγραµµα λεξικού. Μπο- 
ρούμε να προσθέτουμε, να ψόχνουμε 
για κάποια λέξη ή να διορθώνουµε µια 
εγγραφή. Το πρόγραµµα αποτελείται 
από το Listing 1, που είναι το βασικό και 
από δυο format files, to WORDS.FMT. 


dBASE П 


Για να δημιουργήσουμε το αρχείο 
WORD γράφουμε ‘CREATE WORD’ και 
δίνουμε τα παρακάτω πεδία: 


pe то όνοµα που Φαίνεται ото listing. Au- 
τά για το πρόγραμμα. 
Τώρα αν κάποιος από τους αναγνώ- 


WORD Character 15 στες θέλει να δημοσιεύσει κάποιο πρό- 
MASWORD Character 15 γραμμα του µέσα από τη στήλη αυτή 
ΜΕΤΑΕ Character 20 µπορεί να επικοινωνήσει µε το τηλέφω- 


Τα format files μπορούμε να τα γρά- 
Ψουµε o? ένα editor και να τα σώσουμε 


νο 3610039 ή να περάσει από το γραφείο 
µας στη διεύθυνση Μπόταση 9. 


Listing 1 


x Αρχικες συύνθηκες τοι προοραµµατος 
SET DEFAULT TO E 
SET INTENSITY ON 
SET CARRY ON 
SET BELL ON 
SET ESCAPE OFF 
SET HEADING ON 
SET EXACT ON 
SET TALK ON 
SET CONSOLE ОМ 
κιΚαθαρισµος της OBOVNG και 
εμφανιση του Κυριως Ме уо. 
ERASE 
STORE 1 ТО RUN 
DO WHILE RUN>0 
ERASE 
USE WORD 
© 7,29 SAY "1.. 
© 8,29 SAY "2.. 
@ 9,29 SAY "3... 
@ 10,29 SAY "4... 
@ 11, 29 SAY "5... 
@ 15,19 
x Περιµενει να του δωσουμµε 
την επιλοση µας, 
κ 
ACCEPT "ENTER MENU SELECTION " ТО AS 
ERASE 
x Ау διαλεξοιηιε την επιλοῦη 1 
τοτε κανε APPEND το αρχειο. 


. ADD NEW WORD" 

. FIND А WORD" 
EDIT A RECORD" 
EXIT TO DBASE" 
EXIT TO SYSTEM" 


IF А5-"1" 

SET FORMAT TO WORDS 1 

APPEND 

SET FORMAT το 

ENDIF 

x Αν διαλεξουµε την επιλοοη 2 τοτε 


θρες την εδδραφη και τύπωσε την, 


IF AS-"2ə" 
ERASE 

@ 3,5 

ACCEPT "GIVE THE WORD 
IF À= " " 


111 ΤῸ Α 


κ То σιµθολο ! σημαινει UPPER 
{<МетобАптпс»). 

LOCATE FOR !(WORD) - !(A) 

STORE METAF TO M 

IF EOF 

ERASE 

© 10,20 SAY "WORD МОТ FOUND" 

© 20, 50 

МАІТ 

LOOP 

ENDIF 

STORE MASWORD TO E 

ERASE 

@ 3,5 

DISPLAY ALL WORD FOR MASWORD: B 

@ 20,3 SAY "ΟΙ LEXEIS ΑΥΤΕΣ EXOYN ΤΗΝ 

IDIA SHMASIA ΜΕ THN LEXH " GET M 
@ 23,60 


WAIT 

ERASE 

ENDIF 

x Ау διαλεξουµε την enion 
3 τοτε διορθωσε την εδοραφῃ. 

IF AS-"3" 


STORE 1 TO LO 

DO WHILE ΓΟ»Ο 

ERASE 

@ 3,33 

INPUT "DOSTE АКІТНМО КЕС " TO ED 
IF ED-O 

LOOP 

ENDIF 

GO BOTTOM 

LOOP 

ENDIF 

GO ED 

SET FORMAT TO WORDS 
EDIT # 

ERASE 


© 5,20 Φ 
АССЕРТ "ЕРІТНҮМЕІС ALLH DIORTHOSH [Y/N] @ 
" TO YN @ 
IF YN="N" . OR. ΤΝ: "ην 
STORE -1 το LO @ 
SET FORMAT TO 
ENDIF @ 
ENDIF @ 
κ Αν διαλεξοίιηιε την επιλοχῃ 4 
τοτε επέστρεφε otn dBase 
IF Аб-"4" 
CANCEL 
ENDIF 
x Αν διαλεξουµε την елідоӛп 5 τοτε @ 
επιστρεφουµε στο λειτουρσικο συστημα. С; 
ТЕ А5-"5" @ 
SET CONSOLE OFF @ 
QUIT 
ENDIF @ 
ENDDO Φ 
ΕΝΡΡΟ 
LOOP @ 
@ 
Format File WORDS, FMT © 
@ 
@ 5,28 SAY "RECORD NUMBER: " 


5,45 SAY # 

6,22 SAY "--------------------.----.. ii 

10,10 SAY "LEXH EISAGOGHS " GET 
WORD 

11,10 SAY "STATHERH LEXH " GET 
MASWORD 

12,10 SAY "METAFRASH " GET МЕТАҒ 


17,50 SAY "DOSTE [CONTROL + w] 


GIA TELOS" 


Format Flle МОКр51. FMT 


1,28 SAY "ARITHMOS RECORD" 
1, 43 SAY # 


WORD 
SAY νομος а) aa а 
SAY 
MASWORD 
SAY ο ο a ша --.-..! 
SAY "ΜΕΤΑΕΈΑΞΗ " СЕТ METAF 
SAY "...................... 4 " 
SAY "PATHSTE [CONTROL + w) 
GIA TELOS" 
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ΟΛΕΣ ΟΙ ΕΝΤΟΛΕΣ 
ΤΟΥ DOS 


Σ᾽ αυτό το άρθρο θα παρουσιάσουμε 
όλες τις εντολές του MSIPC DOS µέχρι 
την έκδοση 3.Χ. 


APPEND 

H εντολή αυτή έχει σχέση µε την εν- 
τολή PATH. Με την Append δηλώνουμε 
στο σύστημα που θα ψάξει για να βρει 
data files. 


Σύνταξη: 

[drive:] [path] APPEND [d:] [:] [d:] 

[p]...] 

drive: είναι To disk drive που πε- 
ριέχει το file APPEND. COM. 

path είναι τα subdirectories που 


θα ψάξει το DOS για να 
βρει το file ΑΡΡΕΝΡ.ΟΟΜ. 
Ау δεν δηλώσουμε path то 
DOS χρησιμοποιεί το τρέχον 


directory. 

d: είναι To disk drive που θα 
ψάξει va βρει data files. 

p: είναι To directory που θα ψά- 


ξει για να βρει data files. 


ASSIGN 

Με την εντολή αυτή αντιστοιχίζεται 
κάποιο drive µε κάποιο άλλο drive. 
Σύνταξη: 
[drive:] [path] ASSIGN [d1 = d2...] 


drive: είναι To disk drive που πε- 
ριέχει το file ASSIGN.COM. 
path: είναι τα subdirectories που 


θα ψάξει το DOS για να 
βρει το file ASSIGN.COM. 
Αν δεν δηλώσουµε path το 
DOS χρησιμοποιεί το τρέχον 


directory. 

d1 είναι To disk drive που θα ε- 
πεναπροσδιοριστεί. 

d2 είναι το disk drive που όλες 


οι προσπελάσεις στο drive 
d1 θα γίνονται σ᾽ αυτό. 


ΑΤΤΗΙΒ 

Με την εντολή αυτή γίνονται set ή re- 
set τα αρχεία σε κατάσταση read-only ή 
σε κατάσταση ενεργοποίησης για 
backup. 


Σύνταξη: 

[drive:] [path] ATTRIB [+r] [+a] file 

spec 

drive: είναι το disk drive που πε- 
ριέχει το file ΑΤΤΗΙΒ.ΟΟΜ. 

path είναι τα subdirectories που 
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θα ψάξει το DOS για να 
βρει το file ΑΤΤΗΙΒ.ΟΟΜ. Αν 
δεν δηλώσουµε path το DOS 
χρησιμοποιεί το τρέχον di- 


rectory. 
+r θέτει ένα αρχείο read-only. 
-r θέτει ένα αρχείο read-write. 
+a θέτει ένα αρχείο archive για 
να µπορεί να γίνει backup. 
-а θέτει ένα αρχείο ότι έγινε 
backup. 


(Σηµείωση: Οι επιλογές + акса! — a u- 
πάρχουν µόνο στο DOS 3.2) 
file Spec είναι το όνομα του αρχείου του 
οποίου τα attributes πρόκειται να αλλα- 
χτούν. 


ВАЕАК 

Ме tnv εντολή αυτή γίνεται επέκταση 
της ισχύος του Control-C. Γνωρίζουμε 
ότι µε Control-C μπορούμε уа σταµατή- 
σουµε κάποια διαδικασία που τρέχει £- 
κείνη τη στιγμή. Εάν όµως δώσουμεπριν 
BREAK ОМ τότε µε Control-C μπορούμε 
να διακόψουµε οποιαδήποτε διαδικασία 
τρέχει. Εάν πούμε BREAK OFF τότε uno- 
ρούμε να σταματήσουμε μόνο διαδικα- 
σίες που έχουν σχέση µε την οθόνη, το 
πληκτρολόγιο καιτον εκτυπωτή. Η εντο- 
λή αυτή τη χρησιμοποιούμε µέσα στο 
αρχείο ΟΟΝΕΙΩ.ΘΥΘ. 


CHKDSK 

Με την εντολή αυτή γίνεται έλεγχος 
στο drive ή σε κάποιο αρχείο για ανεύρε- 
ση λαθών. 
Σύνταξη: 
[drive:] [path] CHKDSK [file spec] 
ПЕ] IV] 


drive: είναι το disk drive που ne- 
ριέχει το file CHKDSK.COM. 
path είναι το subdirectories που 


θα ψάξει то DOS για να 
βρει το file CHKDSK.COM. 
Αν δεν δηλώσουμµε path το 
DOS χρησιμοποιεί το τρέχον 
directory. 


file-spec είναι το όνοµα του αρχείου 
για το οποίο θα γίνει ο έ- 
λεγχος. 

IF H επιλογή αυτή ενεργοποιεί 
το CHKDSK να φτιάξει τα 
errors που βρήκε στο file 
Alocation Table (FAT) ή στα 


Του Γρηγόρη Σουρμελάκη 


directory. Οι διορθώσεις 
γράφονται στο δίσκο. 

Ν Η επιλογή αυτή εμφανίζει 
στην οθόνη τα ονόματα και 
τα paths όλων των αρχείων 
του δίσκου. 


οις 

Η εντολή αυτή καθαρίζει την οθόνη, 
και εμφανίζει τον сигѕог στην πάνω αρι- 
στερή γωνία της οθόνης. H σύνταξη της 
εντολής είναι: 

οις 

H CLS είναι εσωτερική εντολή του 

DOS. 


COPY 

H εντολή αυτή αντιγράφει ένα ή πε- 
ρισσότερα αρχεία από τον τρέχον οδη- 
үб δισκέτας σε ένα άλλο οδηγό δισκέ- 
τας, ή σε κάποια άλλη µονάδα εξόδου. 
Ακόμα χρησιµοποιείται yia va ενώσουμε 
био αρχεία. 


Σύνταξη: 

COPY [ΙΑ] [ΙΒ] file-specification1 

WA] [ΙΒ] [+ [[,,] file-specificationN 

WA] [/B]...] [file-specification2] [/Α] 

ΗΒ] [/V] 

Παράμετροι: 

ΙΑ -- Η επιλογή αυτή ειδοποιεί 
το ΟΟΡΥ ότι το file είναι 
ASCII file. 

IB — H επιλογή αυτή ειδοποιεί 


το COPY ότι το file είναι σε 
binary μορφη. 

IV — H επιλογή αυτή evepyo- 
ποιεί το COPY ώστε στην 
αντιγραφή ενός αρχείου να 
κάνει και Verification (ελέγ- 
χει αν το πρόγραµµα αντι- 
γράφτηκε σωστά). 

Options: 
file-specification1 είναι το όνομα ñ τα o- 
νόματα των source file(s) που πρόκειται 
να αντιγραφούν. 
file-specification2 είναι το όνομα ή τα ο- 
νόματα των target file(s). 
file-specificationN είναι τα ονόματα των 
αρχείων που πρόκειται να ενώσουµε µε 
το file-specification1 ώστε να δηµιουρ- 
γήσουμε то file-specification2. 

Σηµειώσεις: 

H εντολή COPY αντιγράφει μόνο τα 


files που βρίσκονται στο τρέχον direc- 
ctory. H ΟΟΡΥ δεν αντιγράφει τα file at- 
tributes των αρχείων. Ау αντιγράψουµε 
ένα read-only αρχείο δεν ба δηµιουργη- 
θεί ένα δεύτερο read-only file. Τα source 
και target ονόματα των αρχείων δεν πρέ- 
πει να είναι ίδια. Αν προσπαθήσουμε уа 
χρησιμοποιήσουμε το ίδιο όνομα θα £p- 
φανιστεί ένα μήνυμα λάθους. 


СТТҮ 

Με την εντολή αυτή ипороои уа орі- 
σουµε ποια θα είναι η συσκευή που θα 
δέχεται τα διάφορα commands. Σαν de- 
fault το DOS έχει την οθόνη (CON:) 


Σύνταξη: 

СТТҮ device-name 

device-name είναι το όνοµα µιας από τις 
παρακάτω συσκευές. 


AUX: Βοηθητική συσκευή για 
Input/Output 

CON: H οθόνη 

PRN: O εκτυπωτής 

СОМ1: Σειριακή πόρτα επικοινωνίας 

1 

Σειριακή πόρτα επικοινωνίας 

2 

LPT1: Πόρτα εκτυπωτή 1 

LPT2: Πόρτα εκτυπωτή 2 

LPT3: Πόρτα εκτυπωτή 3 


СОМ2: 


DATE 
Με την εντολή αυτή γίνεται εισαγω- 
γή και προβολή της ημερομηνίας. 


Σύνταξη: 

DATE [mm:dd:yy] 
тт είναι ο μήνας. 
dd είναι η ηµέρα. 
yy είναι ο χρόνος. 


DEL 

Μετην εντολή αυτή μπορούμε να δια- 
γράψουμε ένα ή περισσότερα αρχεία 
από το δίσκο. Η εντολή αυτή είναι εσω- 
τερική εντολή του DOS. 


Σύνταξη: 

DEL file-spec 

file-spec είναι το όνοµα του αρχείου που 
πρόκειται να σβηστεί. 


ΡΙΘΚΟΟΜΡ 
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Μετην εντολή αυτή γίνεται σύγκριση 
μεταξύ δύο drives. 


Σύνταξη: 

[drive:] [path] DISKCOMP [d:[d:]] [11] 

[8] 

drive: είναι To disk drive που πε- 
ριέχει το file DI- 
ΘΚΟΟΜΡ.ΟΟΜ. 

path είναι τα subdirectories που 
θα ψάξει το DOS για να 
βρει το file DI- 
ЅКСОМР.СОМ. Ау δεν δη- 
λώσουμε path то DOS χρη- 
σιµοποιεί το τρέχον direc- 
tory. 

d είναι To disk drive που πε- 
ριέχει τον ένα από τους бі- 
σκους που θέλουμε να συγ- 
κρίνουμε. Αν δεν αναφέρου- 
µε στο ΡΙΘΚΟΟΜΡ ότι η 
άλλη δισκέτα υπάρχει στο 
δεύτερο drive, τότε το πρό- 
γραμμα θα δουλέψει µε το 
ένα. 

1 H επιλογή αυτή λέει στο DI- 
ΘΚΟΟΜΡ να συγκρίνει µόνο 
τη µια πλευρά του δίσκου 
(οι περισσότερες δισκέτες 
είναι double sided). 

18 H επιλογή αυτή λέει στο DI- 
ΘΚΟΟΜΡ να χρησιμοποιήσει 
8 sectors ανά track (οι πε- 
ρισσότερες δισκέτες χρησι- 
μοποιούν 9 sectors ανά 
track). 


DISKCOPY 

Με την εντολή αυτή γίνεται µεταφο- 
pú σε Φυσικό επίπεδο δηλαδή track 
προς track, sector προς sector, από ένα 
drive σε ένα άλλο. 


Σύνταξη: 

[drive:] [path] DISKCOPY [41:[42:]] 

[1] 

drive: είναι To disk drive που πε- 
ριέχει το file DISKCO- 
PY.COM. 

path είναι τα subdirectories που 


θα ψάξει το DOS για να 
βρει το file ПІ5КСОРҮ.СОМ. 
Αν δεν δηλώσουμε path то 
DOS χρησιμοποιεί το τρέχον 
directory. 


d1 είναι To disk drive (A ή B) 
που περιέχει την source бі- 
σκέτα. 

42 είναι το disk drive (A ή B) 


που περιέχει την target δι- 
σκέτα στην οποία θα γίνει η 
αντιγραφή. 

Π H επιλογή αυτή λέει στο DI- 
ЅКСОРҮ να αντιγράψει pó- 
νο τη µια πλευρά του δίσκου 
(οι περισσότερες δισκέτες 
είναι double sided). 


EXE2BIN 

H εντολή αυτή μετατρέπει ένα πρό- 
үраша µε την προέκταση EXE, σε ένα 
πρόγραµµα µε την προέκταση .СОМ. 


Σύνταξη: 

[drive:] [path] EXE2BIN file-spec1 file- 

spec2 

drive: είναι To disk drive που πε- 
ριέχει το file EXE2BIN.COM. 

path είναι τα subdirectories που 


θα ψάξει το DOS για να 
βρει το file ЕХЕ2ВІМ.СОМ. 
Αν δεν δηλώσουμε path το 
DOS χρησιμοποιεί το τρέχον 
directory. 

file-spec1gívou το όνοµα του EXE ap- 
χείου το οποίο θα µετατρα- 
πεί σε COM. 

file-spec2g(vou то όνοµα που θα πάρει 
το νέο ΟΟΜ αρχείο. 


ΕΧΙΤ 

Με την εντολή αυτή γίνεται έξοδος 
από τον command processor και yupi- 
ζουμε στο προηγούμενο επίπεδο. 


Σύνταξη: 
ΕΧΙΤ 


ΕΙΝΟ 

Με την εντολή αυτή ψάχνουμε уа 
βρούμε κάποιο string σε ένα ñ περισσό- 
τερα αρχεία. 


Σύνταξη: 

[агіме:] [path] FIND ΠΟ] [IN] [ΙΝ] 

"οἰήπο” [file-specification[...] ] 

drive: είναι to disk drive που πε- 
ριέχει το file FIND.EXE. 

path είναι το subdirectories που 
θα ψάξει το DOS για να 
βρει το file ΕΙΝΌ.ΕΧΕ. Ау 
δεν δηλώσουμε path то DOS 
χρησιμοποιεί το τρέχον di- 
rectory. 

IC Με την επιλογή αυτή το 
FIND τυπώνει το πόσες фо- 
ρές συνάντησε το string μέ- 
σα στο αρχείο. 

IN Με την επιλογή αυτή το 
FIND τυπώνει τον αριθµό 
της γραμμής που περιέχει 
το string. 


Ν Με την επιλογή αυτή το 
FIND τυπώνει όλες τις үран- 
μές που δεν περιέχουν το 
string που του έχετε δώσει. 


ΕΟΗΜΑΤ 

Με την εντολή αυτή γίνεται προετοι- 
µασία του Φυσικού µέσου για εγγραφή 
στοιχείων. 


Σύνταξη: 
[drive:] [path] FORMAT [4:] [/B] [15] 
[IV] [1] [/4] [/8] 


drive: είναι To disk drive που πε- 
ριέχει to file FORMAT.COM. 
path είναι το subdirectories που 


θα ψάξει το DOS για να 
βρει το file ΕΟΗΜΑΤ.ΟΟΜ. 
Ау δεν δηλώσουμε path το 
DOS χρησιμοποιεί το τρέχον 
directory. 

d: είναι To disk drive (A ή B) 
που περιέχει την δισκέτα 
που θα Φορμαριστε(. 

IB Με την επιλογή αυτή το 
FORMAT αφήνει ελεύθερο 
χώρο στο δίσκο για τα προ- 
γράμματα του dos, 10.5Ү5, 
MSDOS.SYS και ΟΟΜ- 
ΜΑΝΡ.ΟΟΜ. 

IS Με την επιλογή αυτή το 
FORMAT αντιγράφει και τα 
προγράµµατα IO.SYS, 
MSDOS.SYS και ΟΟΜ- 
МАМО.СОМ στη µετά το 
format. 

N Με την επιλογή αυτή το 
FORMAT βάζει ένα label 
στο δίσκο. 

[| Με την επιλογή αυτή η бі- 
σκέτα φορμάρεται σαν 
single side. 

І4 Με την επιλογή αυτή η ðt- 
σκέτα φορμάρεται σαν 
double side σε quad-density 
drive. 

18 Με την επιλογή αυτή το 
FORMAT φορμάρει µια δι- 
σκέτα µε 8 sectors ανά 


track. 
JOIN 


Με την εντολή αυτή γίνεται αντιστοί 
χιση ενός drive µε ένα directory. 


Σύνταξη: 

[drive:] [path] JOIN |а: [path]] [/D] 

drive: είναι To disk drive που πε- 
ριέχει το file JOIN.EXE. 

path είναι το subdirectories που 


θα ψάξει το DOS για να 
βρει το file JOIN.EXE. Αν 
δεν δηλώσουμε path το DOS 
χρησιμοποιεί το τρέχον di- 


rectory. 

d: είναι To disk drive που θα ε- 
νωθεί µε ένα directory. 

path είναι To directory που θα αν- 
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τιστοιχηθεί µε το drive 

ID Με την επιλογή αυτή το 
JOIN επαναφέρει το drive 
στην αρχική του κατάσταση. 

LABEL 

Με την εντολή αυτή δημιουργούμε, 
αλλάζουμε ή διαγράφουµε то label του 
δίσκου. 

Σύνταξη: 

[drive:] [path] LABEL [d:] [volume- 

name] 

drive: είναι το disk drive που ne- 
ριέχει το file LABEL.COM. 

path είναι το subdirectories που 
θα ψάξει το DOS για να 
βρει το file LABEL.COM. Αν 
δεν δηλώσουμε path το DOS 
χρησιμοποιεί το τρέχον di- 
rectory. 

d: είναι To disk drive (A ñ B) 
που περιέχει την δισκέτα 
που θα αλλάξουμε την ετικέ- 
τα (label). 

volume- 

name είναι το όνοµα που θα πάρει 
η ετικέτα της δισκέτας. 
Μπορείτε να δώσετε ένα ó- 
уона που θα περιέχει από 1 
έως 11 χαρακτήρες. 

ΜΟΒΕ 

МЕ την εντολή αυτή γίνεται εμφάνιση 
στην οθόνη ενός αρχείου και μόλις γεμί- 
σει η οθόνη σταματάει και περιμένει να 
πατηθεί κάποιο πλήκτρο. Γίνεται συν- 
διασμός µε την εντολή Type. π.χ. Туре 
myfile, txt | more 

Με την εντολή Type γίνεται η εµφάνι- 
ση στην οθόνη, ενώ µε το more γίνεται 
то σταµάτηµα της οθόνης. 

PRINT 

Me την εντολή αυτή γίνεται εκτύπω- 
ση ενός αρχείου στον εκτυπωτή. 


Σύνταξη: 

[ἀήνθ:] [path] PRINT [/B:buffer-size] 
ΠΟ] ПБ: device-name] [/Μ: max-ticks] 
[IP] I[/Q:queue-size] [IS:time-slice] 
[fT]  [/U:busy-ticks] file-spec {[{|6- 


spec...] 

drive: είναι To disk drive που πε- 
ριέχει to file PRINT.COM. 

path είναι to subdirectories που 


θα ψάξει to DOS για va 
βρει το file PRINT.COM. Av 
δεν δηλώσουμε path то DOS 
χρησιμοποιεί το τρέχον di- 
rectory. 

Н επιλογή /B:buffer-size δηλώνει το 
μέγεθος του print-buffer σε bytes. Το de- 
fault είναι 512 bytes. 

H επιλογή /С δηλώνει στο PRINT va 
ακυρώσει то топора TOU αρχείου που A- 
κολουθεί αυτήν την επιλογή, και όλα та 
ονόματα των αρχείων που ακολουθούν. 

H επιλογή /0:аехісе-пате δηλώνει 
τη συσκευή στην οποία θα γίνει η έξο- 
δος. Σαν default υπάρχει η device ΡΗΝ. 


Н επιλογή IM:max-ticks δηλώνει το a- 
ριθµό των κύκλων της CPU που θα χρη- 
σιµοποιήσει το PRINT για να τυπώει ένα 
αρχείο. Οι τιµές που μπορούμε να δώ- 
σουµε είναι από 1 έως 255. То default sí- 
ναι 2. Αυτή την επιλογή την δίνουμε την 
πρώτη фора nou θατρέξουµετο PRINT. 

H επιλογή ΙΡ δηλώνει στο ΡΗ͂ΙΝΤ να 
τυπώσει το αρχείο ή τα αρχεία που ακο- 
λουθούν. 

Н επιλογή /Q:queue-size δηλώνει τον 
αριθµό των αρχείων που μπορούν να 
μπουν στην print queue. H τιµή που θα 
δώσουμε πρέπει να είναι ανάμεσα στην 
1 και στην 32. H default τιµή είναι η 10. 

H επιλογή /S:time-slice δηλώνει τον 
αριθµό των timeslices που πρέπει να πε- 
ριμένειη PRINT μέχρινα πάρει το χρόνο 
της CPU. H τιµή αυτή κυμαίνεται από 1 
έως 255. H default είναι η 8. 

H επιλογή ΙΤ δηλώνει στο PRINT να 
σταματήσει να τυπώνει το current file 
και να σβήσει το υπόλοιπο files από την 
print queue. 

H επιλογή /U:busy-ticks δηλώνει τον 
αριθµό των clock ticks που το PRINT 
πρέπει να περιμένει για να τυπώσει χα- 
ρακτήρες, αν ο εκτυπωτής δεν είναι δια- 
θέσιµος, επειδή τυπώνει. Η τιµή αυτή 
πρέπει να είναι μεταξύ 1 και 255. H de- 
fault είναι η 1. 

file-spec είναι το όνοµα του αρχείου 
που θα τυπωθεί. 

PROMPT 

Me την εντολή αυτή αλλάζουμε 
το prompt του συστήµατος. (Περισ- 
σότερα για αυτή την εντολή ба 
βρείτε στο προηγούμενο τεύχος 
στο άρθρο Δέκα μυστικά στο РС). 


RECOVER 

Μετην εντολή αυτή μπορούμενα 
αφαιρέσουμε το sectors που είναι 
χαλασμένα δηλαδή та bad sectors 
από το δίσκο ή τη δισκέτα. Έτσι 
μπορούμε να σώσουμε ένα αρχείο 
που περιέχει bad sectors σίγουρα 
όµως θα χάσουμε τα sectors αυτά. 


Σύνταξη: 

[drive:] [path] RECOVER [а:] [file- 

spec] 

drive: εἰναι to disk drive που 
περιέχει το file RECOV- 
ER.COM. 

path είναι τα subdirectories 
που ба ψάξει το DOS για 
να βρει το file ΒΕΟΟΝ- 
ЕН.СОМ. Αν δεν δηλώ- 
σουµε path το DOS χρη- 
σιµοποιεί το τρέχον di- 
rectory. 

d: είναι To disk drive που θα 
γίνει Recover. 

file-specg(vat то όνομα του ap- 
χείου που θα γίνει Re- 
cover. 


REN 

Με την εντολή αυτή αλλάζουμε 
το όνοµα ενός αρχείου. Η εντολή 
αυτή είναι εσωτερική εντολή του 
Ρος. 


Σύνταξη: 

REN old-name new-name 

old- 

name εἰναι το παλιό όνομα του 
αρχείου. 

new- 

пате εἰναι το νέο όνομα του 
αρχείου. 

ΡΕΗΙΑΟΕ 


Με την εντολή αυτή γίνεται αντι- 
κατάσταση των αρχείων της πα- 
λαιάς έκδοσης µε την νέα. 
Σύνταξη: 

[drive:] [path] REPLACE file-spec 

[d:] [p] ПАТ [ΙΡ] ΠΗ] [181] [ΛΜ] 

drive: είναι το disk drive που 
περιέχει το file БЕРІ Α- 
СЕ.СОМ. 

path είναι τα subdirectories 
που θα ψάξει το DOS για 
να βρει το file ΒΕΡΙ Α- 
СЕ.СОМ. Αν δεν δηλώ- 
goue path το DOS χρη- 
σιµοποιεί το τρέχον di- 
rectory. 

file-spec είναι το όνοµα του target 
file. 

d: είναι To target drive που 
θα γίνει n αντικατά- 
σταση. 

p είναι To target path που 
θα γίνει η αντικατάσταση 
του αρχείου. 

IA H επιλογή αυτή δηλώνει 
στο REPLACE να αντι- 
γράψει τα files που δεν 
υπάρχουν στη target lo- 
cation. 

IP H επιλογή αυτή δηλώνει 
στο REPLACE να εµφανί- 
ζει μήνυμα ау θέλουμε 
να αντιγράψουµε то ap- 
χείο ή όχι. 

IR H επιλογή αυτή δηλώνει 
στο REPLACE να αντικα- 
ταστήσει files που είναι 
read-only στο target 
drive. 

IS H επιλογή αυτή δηλώνει 
στο REPLACE να ψάξει 
όλα τα subdirectories 
στο target drive τα ονό- 
µατα των οποίων ταιριά- 
ζουν µε το source. 

IW H επιλογή αυτή δηλώνει 
στο REPLACE να περιµέ- 
νει να πατήσουµε κάποιο 
πλήκτρο πριν αρχίσει να 
αντικαταστεί αρχείο. 


SHARE 
H εντολή αυτή έχειισχύ όταν πε- 
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ρισσότεροι του ενός user έχουν 
προσπέλαση στο ίδιο αρχείο. Αυτό 
έχει νόηµα σε δίκτυο ΗΙΥ. 


Σύνταξη: 

[drive:] [path] 

[/F:filespace] ПІ: locks] 

drive: είναι To disk drive που 
περιέχει το file SHA- 
RE.COM. 

path είναι τα subdirectories 
που θα ψάξει το DOS για 
να βρει το file SHA- 
RE.COM. Αν δεν δηλώ- 
σουµε path το DOS χρη- 
σιµοποιεί το τρέχον di- 
ΓΘΟΙΟΓΥ. 


SHARE 


IF:file- 
space H παράμετρος αυτή δη- 
λώνει το μέγεθος της 
μνήμης που θα χρησιµο- 
ποιηθεί για file sharing. 
Το DOS χρησιμοποιεί 
4098 bytes για file sha- 
ring. 

IL: locksH παράμετρος αυτή ðn- 
λώνει τον αριθµό των 
locks που προσφέρει το 
Ρος. 


SORT 

Με την εντολή αυτή γίνεται ταξι- 
νόµηση ενός directory ή ενός ap- 
χείου. 


Σύνταξη: 

[drive:] [path] SORT [/+n] [/Β] 

drive: είναι to disk drive που 
περιέχει το file 
ΘΟΒΤ.ΟΟΜ. 

path είναι τα subdirectories 
που θα ψάξει το DOS για 
να βρει το file 
ΘΟΗΤ.ΟΟΜ. Αν δεν δη- 
λώσουμε path το DOS 
χρησιμοποιεί το τρέχον 
directory. 

[+n Н παράμετρος αυτή ðn- 
λώνει στο SORT να ταξι- 
νομήσει το αρχείο αρχί- 
ζοντας από τη στήλη η. 

IR Н παράμετρος αυτή ðn- 
λώνει στο SORT να ταξι- 
νομήσει το αρχείο κατά 
Φθίνουσα σειρά. 

SUBST 

Με την εντολή αυτή γίνεται To 
αντίθετο από αυτό που κάνει η ЕУТО- 
λή join. Έτσι εδώ αντικαθίσταται 
ένα directory µε ένα drive. 


Σύνταξη: 
[drive:] [path] SUBST [а:] [p] [/D] 
drive: είναι το disk drive που 
περιέχει TO file 
63) 
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TREE - DIMENSION 
SHARE 


To TREE — DIMENSION SHAPE είναι ένα πρόγραμμα ns- 


ριστροφής και απεικόνισης τρισδιάστατων αντικειμένων στην X2 = oso зд Χι 
οϑόνη του РС1512. Ч, y 
‹ 1 


Μπορείτε να εισάγετε και να δουλέµετε µε οποιοδήποτε av- 


τικείµενο δέλετε, αρκεί να δώσετε τις συντεταγμένες των κορυ- για στροφή γύρω από тоу Ө – άξονα. 


φών του καὶ τον τρόπο µε τον οποίο συνδέονται μεταξύ τους. 
cos ѕіпд U, 
-sin соѕд =; 


για στροφή γύρω апо τον x – άξονα. 


-5їпд τος 


ΒΔΓΕΞΗΘ) (Σχ. 1) µε та δεδοµένα του οποίου δουλεύει αυτή 


Παρακάτω αναλύεται το απλό παράδειγµα του κύθου (Α- | у» | 
τη στιγµή το πρόγραμμα. 


2 
Εάν υποδέσουµε ότι п αρχή του ορθογωνίου συστήµατος 


συντεταγμένων охуӨ είναι τοποϑετημένη στο κέντρο θάρους 
του κύθου και ότι n ақыл АВ έχει µήκος δύο µονάδες: 


- I қ f | = | | cos sin8 сй 

(АВ = 2), τότε ot συντεταγμένες των σημείων да είναι: = 

А(,—1,—1), В(1, 1-10), Г(—1,1,—1)... κτλ. X; -ѕіпд | | Χι | 
Μέσα στο πρόγραµµα καὶ στην περιοχή: `+ ++ 6ΟΟΒΡΙ- 

ΝΑΡΕΣ OF ΤΗΕ POINTS + + +”, στο πρώτο DATA που ако- για στροφή γύρω από τον u — άξονα. 


λουϑεί υπάρχει το νούμερο 8 που είναι ο αριδµός των κορυ- 
φώντου σχήματος. Τα επόµενα 8 DATA είναι οι συντεταγμένες 
των σημείων А, В, Г, Δ, E, =, H, Ө αντίστοιχα. Ακόμη το σηµείο 
А έχει κωδικό 1, το В έχει 2 το Г έχει 3 κ.ο.κ. 

Τώρα µένει уа δηλώσουμετον τρόπο µετον οποίο συνδέον- 
ται μεταξύ τους τα σηµεία. Αυτό γίνεται στην περιοχή: `+ * • 
WHICH POINTS ΑΠΕ ΟΟΝΕΟΤΕΡ BETWEEN ТНЕМЅЕ- 
LVES + + +”, κάτω anó to LABEL bss, χρησιμοποιώντας σηµεία 
«οδηγούς. Σαν σηµεία-οδηγούς ορίζουμε εκείνα στα οποία Ka- 
ταλήγουν боо το δυνατόν περισσότερες ευϑείες (στην nepi- 
πτώση του κύθου σε κάδε σημείο καταλήγουν τρεις ευδείες). 


Έστω ότι επιλέγουµετα σηµεία µε κωδικό 1, 7, 3, 5, δηλαδή 
τα A, H, Γ, E. Στο πρώτο DATA κάτω από το LABEL bss δεν 
υπάρχει το νούμερο 4 που είναι το πλήϑος των σημείων-οδη- 
γών. Για τα επόμενα 4 DATA ισχύει: το πρώτο νούμερο είναι 
ο κωδικός του опреіоџ-обпүоо, το δεύτερο νούμερο είναι то 
πλήδος των εὐδειών που καταλήγουν στο σημείο-οδηγό και 
τα υπόλοιπα νούμερα που ακολουθούν είναι οι κωδικοί των 
σημείων από τα οποία αρχίζουν οι προηγούμενες ευϑείες. Π.χ. 
στο σηµείο А που έχει κωδικό 1 καταλήγουν З ευϑείες και 
συνδέεται µε τα σηµεία Β (κωδικός 2), Θ (κωδικός 8) και Δ 


(κωδικός 4). Αρα έχω το DATA 1, 2, 3, 8, 4. Με αυτό τον Χ Α 6 
τρόπο παίρνει πλέον υπόσταση ο κύθος µας! с ΣΧ.1} 

Τώρα λίγα λόγια για την περιστροφή. 

Η περιστροφή του αντικειμένου γίνεται µε θάση τη ϑεωρία όπου Θ είναι η γωνία που σχηματίζει το καινούριο σύστημα 
των «πεπερασμένων περιστροφών» και ре Tn χρήση των εξισώ- συντεταγμένων µε το παλιό και είναι δετικη όταν έχει φορά 
ἘΝ αντίδετη των δεικτών του ρολογιού. Οι μεταθλητές µε δείκτη 
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File Program Edit Fonts Colours Patterns Lines Windows 


BASIC? 


H | TREE-DIMENSION SHAPE 
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| 


“| 


| 
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2 είναι οι νέες συντεταγμένες κάποιου σημείου και οι µεταθλη- 
τές µε δείκτη 1 οι παλιές. Μέσα στο πρόγραµµα οι παραπάνω 
εξιώσεις ενοποιούνται σε µία μόνο (!) function την: ЕМН 
(X19, Χο, X3) = X, * (0) (χο) + + sin (χο). που κάϑε φορά Ka- 
λείται µε τον κατάλληλο τρόπο. 

Το πρόγραµµα επιπλέον υποστηρίζεται από τις ρουτίνες: 

o) change — colors n οποία αλλάζει το χρώμα της οϑόνης, 
του σχήματος кат των αξόνων κάνοντας ταυτόχρονα έλεγχο εάν 
п επιλογή µας είναι επιτρεπτή. Π.χ. εάντο χρώματου σχήματος 
και της οθόνης ήταν то ίδιο δεν да θλέπαμε τίποτα! 

6) change — vot n οποία αλλάζει τη γωνία περιστροφής. H 
αρχική γωνία περιστροφής είναι 10 θαϑμοί. 

v) change — shape: κάνειτο σχήμα μικρότερο ή μεγαλύτερο 
στην одоуп. 

Š) vsdp: περιστρέφει κατευθείαν το σχήμα χωρίς να χρεια- 
τσεί να πατήσουµε τα πλήκτρα περιστροφής. 

g) change — axis: Μεταθάλλει την κλίμακα των αξόνων. Tó- 
σο σε αυτή τη ρουτίνα όσο και στην change — shape γίνεται 

«έλεγχος μήπως ре тіс αλλαγές κάποιο σηµείο θρίσκεται εκτός 
οϑόνης. 

στ) cont — vot: τυπώνει τις συντεταγμένες των σημείων στην 
οδόνη κατά οµάδες και μόνο 8 σηµεία κάθε φορά. 

Εάν υποδέσουµε ότι έχετε την υπομονή να πληκτρολογήσε- 
τε όλο αυτό το πρόγραμμα, τρέχοντάς το ϑα εμφανιστούν οι 
οδηγίες και οἱ επιλογές στην οδόνη. Προσοχή, το φωτάκι του 
caps Lock να είναι αναμμένο. Τα πλήκτρα περιστροφήςτα 7.9, 


4,6,1,3 (στο δεξιό μέρος του πληκτρολογίου). Πατώντας то 
space — bar да δείτε στην οδόνη να σχηματίζεται ένα τετράγω- 
νο, αυτό είναι п πλάγια όψη του κύθου. Στο πάνω δεξιό µέρος 
της οξόνης σχεδιάζεται ένα αντίγραφο του αρχικού συστήµα- 
τος συντεταγμένων και κάθε φορά που κάνετε µια περιστροφή 
σχεδιάζεται καὶ το καινούριο σύστημα συντεταγμένων µε πιο 
παχιές γραμμές. Στο αρχικό σύστημα συντεταγμένων ο Х-4- 
ἔονας είναι κάϑετος στην οδόνη µε τα детка x προς та έξω, 
ο άξονας у οριζόντιος µε τα δετικά у προς τα δεξιά καὶ ο Ө – 
άξονα κατακόρυφος u£ ra ϑετικά Ө προς τα πάνω. Ξαναπατών- 
τας то space bar да θρεδείτε στο menu οδηγιών πάλι. 

test: Εάν πατήσετε δύο φορές το πλήκτρο 1, περιμένετε να 
σχεδιάσετετο σχήμα και έπειτα πατήστε δύο φορές το πλήκτρο 
4, да πρέπει να δείτε την εικόνα του (Σχ. 2). 


Good Luck! 


Σηµείωση για τους πονηρούς: Εάν µετά από κάποιο µεγάλο αριδµό nepi- 
στροφών προσπαδήσετε pe tnv επιλογή σας να φέρετε το σχήμα στην αρχι- 
кл tov деоп, δηλαδή shape position = ο o o да αποτύχετε! Οι πεπερασµέ- 
veç περιστροφές δεν είναι ανυσµατικά реүёдп και ара δεν ισχύουν οι ιδιό- 
τητες της ανυσµατικής πρόθεσης και αφαίρεσης. Όσοι δεν το πιστεύουν 
ας ψάξουν το θιθλίο: «Μηχανική, µαδήµατα φυσικής πανεπιστημίου BE- 
ΕΚΕΙ ΕΥ» σελ. 22, 23. 


АНМНТРІОҮ ΓΙΩΡΓΟΣ 
ΜΗΧΑΝΟΛΟΓΟΣ ΚΑΤΑΣΚΕΥΑΣΤΗΣ 
Φοιτητής Ε.Μ.Π. 
тпА.: 4968197 
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TREE - DIMENSION 
SHARE 


дым ΧΧΚΑΚΑΧΚΚΧΚΚΚΧΧΧΧΧ ΚΑ ΚΑ ΚΧΧΧΧΧΧΧΑ К ΚΚ ΠΡ 


. 
ΤΗΕΕ-ΡΙΜΕΝΘΙΟΝ SHAPE . 
PROGRAMMER : GEORGE ΒΙΜΙΤΗΙΟΥ * 
(C) 14-10-1987 5.17 PM (V) 1.4 * 

* 

* 


w“. 


ΝΚΝΧΧΧΧΧΧΣΧΚΚΚΧΚΧΚΧΧΚΚΧΧΚΚΚΑΧΚΚΚΧΧΚΚΧΣ ΧΧΧ ΧΑΚ ΧΧΧ ЛЛ ТҮ ТТТ 

CLEAR RESET 

FOR i=1 ΤΟ 4:CLOSE WINDOW i:NEXT i 

WINDOW #2 OPEN:WINDOW #2 FULL ON:CLS #2 

ЬФ-"%% PRESS (SPACE BAR] TO SEE ΤΗΕ SHAPE жж PRESS [C] TO INSERT CHANGES жж PRES 
S СЕЈ TO EXIT “ 

WINDOW #2 TITLE "INSTRUCTIONS / CHANGES 

FOR i=1 TO 15:READ a$:FOR 1-0 TO LEN(a$):PRINT #2 АТ(1+);1) LEFT$(RIGHT$(a$,LEN( 
а%)-)),1);:МЕХТ J:PRINT CHR$(7):NEXT i 

DATA "χκκχχ ΘΒΡΕΟΙΑι KEY FUNCTIONS 
DATA "7 / 9 X-ROTATION KEYS .. 
рата "4 / в ΥΞΒΟΤΑΤΙΟΝ KEYS 

DATA "1 / 5 Ζ-ΒΟΤΑΤΙΟΝ KEYS 

DATA "СЅРАСЕЈ SHOW RESULTS 1 OR 2 

DATA "жжжжж OPTIONS Жах» 
DATA "1) CHANGE COLOURS CSCREEN,SHAPE,AXISJ 
DATA "2) CHANGE AXIS SCALE 

DATA "5) CHANGE SHAPE SIZE DN THE SCREEN 
DATA "4) CHANGE ROTATION ANGLE 

DATA "5) COORDINATES ОҒ THE POINTS ROTATION ANGLE=" 

DATA "ὁ) VIE SHAPE FROM CERTAIN POSITION : SHAPE POSITION=" 

DIM a(1 TO 8.1 TO 2),b(1 ΤΟ 8,1 ΤΟ 2),axs(1 TO 2.1 TO Z),ac(1 ΤΟ 13),an(1 TO é) 

ас (1) =5:ас (2) =6зас (5) =7:ас (4) =12:ас (6) =5:ас (12) =10:53=1100:54=53/1.1101=4080:р2= 
1250:ап (4) =01ап (5) =0:ап (6) =0:ас (8) =1:ас (9) =1:ас(10)=1 

DEF РМ#1 (х1. х2, х5) =х1жС06 (х2) +x3%SIN(x2) 

DEF ҒМЯ2(пот) DECS (пит. "κΗ88 888, кө”) 

SCREEN #1 GRAPHICS 640 ҒІХЕр. 320 FIXED:USER #1 ORIGIN 3000:2500:FOR ізі TO`3:FOR 
JA=i ΤΟ 3:READ axs(i,J):NEXT J:NEXT і:0ОРТІОМ DEGREES: READ пит 

FOR ізі TO num:FOR j=1 ТО 3:READ а(1,)):МЕХТ J:cmax=MAX (cmax,aíi,1)^2+a(i,2)^2+a 
(1.35) ^2) NEXT l;ac (11) =1МТ (2500/ (508 (стах) ж1.1)):51=ас(11)/1.1 

GOSUB вес _defaults:GOSUB instructiors 

WINDOW #1 TITLE "TREE-DIMENSION SHAPE":WINDOW #1 FULL ON:WINDOW #1 OPEN:CLS 81:6 

ОБОВ swb 

” жаз AXIS SITUATION 1.11 

DATA 1,0,0,0,1,0,0,0,1 

"акк ΟΟΟΒΡΙΝΑΡΕΘ ОҒ ΤΗΕ POINTS LEES 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
"εχ WHICH POINTS АКЕ ΟΟΝΕΟΤΕΡ BETWEEN THEMSELVES каз 

LABEL bss 

DATA 4 

DATA 1,5,2,8,4 

DATA 7,5,8,2.6 


ТОР 
Χ-ΑΧΙ5 COLOUR=" 
: Y-AXIS СО ου-" 
Z-AXIS σοι ουηΞ" 
SCREEN COLOUR="," 
SHAPE COLOUR="," 
X-AXIS SCALE=" 
Y-AXIS SCAL 
Z-AXIS SCALE= 
SHAPE SIZE=" 


DATA 5.5.8.6.4 
LABEL set_scr 
RESTORE bss:FOR 1=1 TO пыт:а(1.2)-ҒМҒ1(а(1,2),0,.а(1.20):а(1.2)жЕМҒ1(а(1.2),0,-а( 
1.2003ЬХ1,12жа(1,2)Жәс(11):5(1,20за(1,20Ж4зі:МЕХТ і 

READ poi:FOR ізі ΤΟ poi:READ al,a2:FOR 3-1 TO a2:READ a3:LINE b(al,1);b(a1l.2),b( 
a3,1)b(a3.2) COLOUR ac(é) WIDTH 2:МЕХТ 23МЕХТ iíi:GOSUB axis_make 


LABEL wait 

a=INKEY 

IF a=327 THEN xa=-1:GDSUB xrotate:GOSUB lmake:GOSUB axis make: БОЅОВ х axis 
IF а=529 THEN ха=1:50508 xrotate: GOSUB lmake:GOSUB axıs_make:GOSUB x_axis 
IF a=335 THEN xb=-1:GOSUB zrotate:GOSUB lmake:GOSUB ахів тәке:б05/В z_axis 
IF 45557 THEN xb=1:GOSUB zrotate:GOSUB lmake:GOSUB axis_make:GOSUB z_axis 
IF a=331 THEN xc=-1:GOSUB yrotate:GOSUB lmake:GOSUB axis_make:GOSUB y axis 
IF 45555 THEN xc=1:GOSUB yrotate:GOSUB lmake:GOSUB axis_make:GOSUB y_axis 
IF 4552 THEN WINDOW #1 CLOSE:GOSUB instructions 

GOTO wait 


READ poi:FOR іші ΤΟ poi:READ al.a2:FOR 151 TO a2:READ a3:LINE b(al.1 
)%Б(а1,2).Б(а3,1):Б(а2,2) COLDUR ac(6) WIDTH Ξ1ΝΕΧΤ 3:NEXT i 


ai a SHAPE ROTATION ROUTINES -- 
LABEL xrotate 
GOSUB swb:FOR 11-1 ΤΟ ac(12):FOR ісі TO numta(i,2)=FNfl(a(i.2).xa,a(i,2)):a(i,3) 


=РМ#1(а(1,5),ха,-а(1,2)):Ь(1.1)=а(1,2)%ас(11):Ь(1.2)=а(1,3)#51:МЕХТ 1:МЕХТ iliRE 
TURN 


LABEL zrotate 
GOSUB swb:FOR 11=1 ΤΟ ac(12):FOR ісі το numsa(i.1)=FNf1(a(i.1).xb,a(i,2)):a(i,2) 


жЕМҒ1(а(1,20,х5,-а(1.100:5(1.12еа(1,2)Жас(11):5(1,20ша(1,5)461:МЕХТ і:МЕХТ 11:ВЕ 
TURN 


LABEL yrotate 
GOSUB swb:FOR il=1 ТО ac(12):FOR 151 TO num:a(i.3)=FNfl(a(i.3).xC.a(i,1))tsa(i,1) 


=*ЕМ#1(а(1,1),хс,-а(1,5)):Ь(1.1)=а(1,2)%#ас(11):Ь(1,2)=а(1,3)%#1:МЕХТ 1:МЕХТ 111ВЕ 
TURN 


CIRCLE р1:р2.50 COLOUR ас(1) WIDTH 3:LINE plip2.FNf1(1.0.0)šss3+p1;iFNf1(0.0,-1)%s 
Nf1(1.0.0)%s4+p2 COLOUR 


LABEL l_axis 
FOR ізі TO Z:LINE рі:р2.ахв(1.20%85%рі;ахв(1.5)%55%р2 COLOUR ас(і) WIDTH S:NEXT 


---------- AXIS ROTATION ROUTINES - 
LABEL х_ахіѕ 


FOR 1151 ТО ас (12) :ҒОК 151 το Э:ахв(1.2)-ЕҒм41(ахв(1,2),ха,ахв(1,2)):ахв(1,2)-ҒМҒ 
1(ахв(1,2).ха.-ахв(1,2)0:МЕХТ iranx=anx+xa:NEXT 11:60508 l_axisiRETURN 


LABEL y_axis 
FOR 1151 ΤΟ ac(12):FOR 151 TO 3raxs(i,3)=FNf1(axw(i,3),xC,axs(i,l))raws(i,1)=FNf 
1(ахв(1,1).хс.-ахв(1.5)0:МЕХТ iranysany+xcıNEXT il:GOSUB 1l_axiwiRETURN 

LABEL z_axis 

FOR il=1 ΤΟ ac(12):FOR 1=1 ΤΟ Z:axs(i,1)=FNf1(axs(i,1),xb,axs(i,2))1axs(i,2)=FNf 
1(axs(i,2).xb,-axs(i,1)):NEXT i:anz=anz+xbiNEXT il:GOSUB 1_axis:RETURN 


LABEL swb 
ВОХ -3000; -2500, 9000, 5500 COLOUR ac(4) FILL WITH B:RETURN 


LABEL instructions 

GOSUB set_defaults 

LABEL inst 

sd=-1:FOR i=LEN(b$) ΤΟ 1 STEP -1:PRINT #2 AT(5;18);LEFT$((RIGHT$ (b$, i)+LEFT$ (b$ 
LEN (b$) -1)) 40) :5ά-ΙΝΚΕΥ 

IF sd=32 THEN GOSUB swb:GOSUB 1 таке: 5050В axis πᾶΚΒΙΘΟΒΟΒ 1_axiwiWINDOW #1 ОРЕК: 
RETURN 

IF 54-65 THEN STOP 

IF sd=67 THEN GOSUB changes 

NEXT i 


LABEL changes 
GOSUB swb1:INPUT #2 AT(5:17):"YOUR CHOISE = "¿ch:IF ch<1 OR ch>6 THEN GOTO chang 


ON ch GOSUB change colours. сһапде_ахіѕ, сһапде _вһаре, сһапде го, соп гоё, ужар 
GOSUB set_defaults 
RETURN 


LABEL swb1 


PRINT CHR$(7):PRINT #2 AT(1:16):STRING$ (ВОО "Э s 1 RETURN 


LABEL `j 
FOR j=1 TO 12 

IF j=5 OR j=7 THEN GOTO nnxt 

PRINT #2 AT(5912+j);ac (3) STRINGS (14-LEN(STR$(ac(j)))," ") 

LABEL nnxt 

NEXT ЈІРКІМТ #2 АТ (59:15) ;апх;апу;апг : STRINGS (14-1 ЕМ (ΘΤΗΦ (anx) «8ΤΗ! апу) +STR$ (ап 
z))," ") 1 RETURN 


LABEL change_colours 

GOSUB swb1:PRINT #2 АТ (5:16) :"СНАМБЕ COLOURS" 

INPUT #2 АТ(2:18); "БСКЕЕМ COLOUR = "гас (4) 1ІМРОТ #2 AT(3;19); "SHAPE COLOU 
R = "тас (6) :ІМРОТ #2 AT(3:20):"AXIS COLOURS (X,Y, Z)= "тас (1), ас (2), ас (5) 
IF (ас (4) =ас (6) ОК ас (4) =ас(1) ОК ас (4) =ас(2) ОК ас (4) жас (5) ОК ас (1) =ас (2) OR а 
с(2) =ас (5)) THEN GOTO change colours 

IF (ас (4) ОК ас (6) OR ас(1) ОК ас (2) ОК ас (5))<0 THEN БОТО change_colours 

IF «ас(4) ОК ac(é) OR ac(1) OR ac(2) DR ас(5)) >15 THEN БОТО change colours 

GOSUB swb:GOSUB lmake:GOSUB axis_make:GOSUB l_axis:GOSUB swb1:RETURN 


LABEL change_rot 
GOSUB swb1:PRINT #2 ΑΤ(5ΙΙ6)Ι"ΟΗΑΝΕΒΕ 


ROTATION 
INPUT #2 AT(3;18); "NEW ROTATION ANGLE =";ac(12):ac(12)=INT(ac(12)):IF ac(12)<1 T 
HEN 6ΟΤΟ chanqe rot 

GOSUB swb1:RETURN 


ANGLE" 


LABEL change_shape 

GOSUB swbl:PRINT #2 AT(2:16):"CHANGE 
SCREEN" 

INPUT #2 AT(3:18):"NEW SHAPE SIZE ="фцас(11):в1=ас(11)/1.1:1Ё ac(11)<1 THEN GOTO 
change shape 

IF ас (11) 508 (стах) 22500 THEN PRINT #2 AT(2120);"WITH THIS SIZE THERE IS A POINT 
OUT OF THE SCREEN, PLEASE TRY AGAIN !";FOR d=1 TO 5000:МЕХТ di 


SHAPE SIZE ом ΤΗΕ 


LABEL узар 

GOSUB swb1:PRINT #2 AT(2:16):"V IE SHAPE FROM CERTAIN РОВІ 

T I D N"rac(5)=ac(12):INPUT #2 АТ (3:18) :"Х-АХІЗ ANGLE ="jan(1)1 INPUT #2 АТ (3119) 
%"Ү-АХІБ ANGLE ="¿an(2):INPUT #2 АТ (3:20); "Z-AXIS ANGLE ="}an(3 

FOR іші TO 3 

LABEL find_an 

k=k+1ran(i+3)=ABS(an(i))-k*360:1F an(i+3)<0 THEN an(i+3)=INT(ABS(an(i))-(k-1)836, 
0) ELSE GOTO find_an 

k=0:NEXT irxa=SGN(an(1))*1:xc=SGN(an(2))*1:xb=SGN(an(3))*1:PRINT #2 АТ (40119); "Ы 
ORKING..." 

ας (12)=an(4):GOSUB xrotateiGOSUB 1make:GOSUB axis таке:б050В x_axis 

ac (12) жап (6) :GOSUB zrotate:GOSUB lmake:GOSUB axis таке:б505/В z_axis 

ac (12)=an (S) :GOSUB yrotate:GOSUB lmake:GOSUB axis make:GOSUB у axis 

ac (12)=ac (S) :G0SUB swb1:RETURN 


LABEL change_axis 
GOSUB swb1:PRINT #2 AT(2;16);" CHANGE AXIS 5 С А 1. EyIIFOR 151 TO numiF - 
OR 151 TO З:а(і, ј) =а(і, 3) /ас (7+3) 1МЕХТ 31МЕХТ í 

INPUT #2 АТ (5:18): "NEW Х-АХІЅ SCALE ="1ас (8) :ІМРОТ #2 АТ (3119) 1 "МЕМ Y-AXIS SCALE 
="тас (9): INPUT #2 АТ (5:20) ;: "МЕМ Z-AXIS SCALE ="уас (10) 1стах=о 

FOR і=1 ТО пит: РОЯ j=) ТО Ξιϑί1. 5) =а(і, 1) хас (7+3) 1МЕХТ ј:стахеМАХ (стах, а(і,1) ^2+ 
а (1.2) ^2+а (і, 5) ^2) 1МЕХТ i 

IF ас (11) #508 (стах) 22500 THEN PRINT #2 АТ (2120) 1 "ὑΘΙΝ6 THIS SCALE THERE 18 А POI 
ΝΤ OUT ОҒ ΤΗΕ SCREEN, PLEASE TRY AGAIN '":ҒОВ 4-1 ΤΟ ΔΟΟΟΙΝΕΧΤ 9:60Т0 сһапде_ахі 
s - 

FOR ізі ΤΟ num:b(i,l)=a(i,2)*aC(11)ib(i,2)=a(i,3)%s1:NEXT i:GOSUB swb:GOSUB 1так 
e:GOSUB axis_make:GDSUB 1_axis:GOSUB swb1:RETURN 


LABEL cont_rot 

GOSUB swb1:PRINT #2 АТ (2;16):" COORDINATES OF ΤΗΕ ΡΟΙΝΤΟΘ"ΙΡ 

RINT #2 АТ (2:17); " (МАХ. В POINTS А TIME, ROLL UP ΤΗΕ ΜΙΝΡΟΝ) "ε INPUT 42 AT(45/17) 
"START POINT,END POINT";sp,ep:IF sp<1 THEN БОТО cont_rot 

IF ep>num THEN GOTO cont_rot 

FOR ішер ΤΟ ер :PRINT #2 "POINT =" DECS (i, "ΜΑΝ" 
ФЕМ#2(а(1,2));" Z="IFNf2(a(1,3)):NEXT 

ΕΝ READY,":" THEN PRESS [SPACEI жа”; 

LABEL bff 


X="/FNf$2(a(i,1)))" Y=" 
ІРБІМТ 92)" š% ROLL DOWN ΤΗΕ WINDOW WH, 


-Q=INKEY: IF q=32 THEN GOSUB swbl:RETURN 


* 
Н 
+ 
5 
5 
% 
| 
Ф 
+ 
2 
2 
4 
% 
Ф 
+ 
2 
2 
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“ΜΕΤΑΒΛΗΤΕΣ | 


ауға κ λος ο... πο αμ ο ασ 


ΚΑΙ DATA 


ΤΟΥ Σ.Ν. ΑΓΓΕΛΗ 


πως 


Νομίζατε ότι τελειώσαμε µε τα υπο- 
προγράµµταα, в; Suprise! Όχι, δεν TE- 
λειώσαμε ακόµα, αλλά, μεταξύ µας, OKO- 
πεύουµε να το κάνουμε γρήγορα. Αλλά 
πριν το κάνουμε, θα ασχοληθούμε ακό- 
μα λίγο µε τις παραμέτρους των υπο- 
προγραμμάτων. 

Έτσι, λοιπόν, είδαμε ότι όταν θέλου- 
не να περάσουμε µια σειρά μεταβλητών 
από ένα πρόγραµµα с ένα υποπρόγραμ- 
μα ή και αντίστροφα, χρησιμοποιούμε 
µία λίστα παραμέτρων, την οποία γρά- 
poupe δίπλα στο όνομα του υποπρο- 
γράμματος τη στιγµή που τα ορίζουμε, 
αλλά και όταν τα καλούμε. 

Γενικά αυτή η μέθοδος είναι πολύ κα- 
λή και βολική και βοηθάει πολύ στο γρά- 
ψιμο και την κατανόηση των υποπρο- 
γραμμάτων, αλλά και στο debugging. Υ- 
πάρχει όµως περίπτωση, όπου αυτή η 
μέθοδος δεν είναι η καλύτερη δυνατή: έ- 
ото ότι ένα πρόγραμμα χρησιμοποιεί 15 


"μεταβλητές, οι οποίες χρειάζονται σε 8 


υποπρογράµµατα, που το καθένα καλεί- 
ται τουλάχιστον 5 φορές! (Κάποιος μου + 
φαίνεται ότιτο παρακάνει λίγο, ε;...). Φυ- 
σικά, είναι χαμένος κόπος να επαναλαμ- 
βάνεται τόσες φορές η λίστα αυτών των 
παραμέτρων, yU αυτό και η FORTRAN 
προσφέρει μία εναλλακτική λύση: την 
εντολή ΟΟΜΜΟΝ. 

H εντολή αυτή, όπως και η DIMEN- 
SION και οι εντολές καθορισμού τύπου 
μεταβλητών, δεν είναι µία εκτελέσιµη 
εντολή, αλλά χρησιµοποιείται yia va δώ- 
σει κάποιες πληροφορίες στον Compi- 
ler. 

H γενική µορφή τους είναι: 


ΟΟΜΜΟΝΙ/όνομα΄Ί/µεταβλητές/ 
ὀνομαδ/μεταβλητές 2... 


και αυτόπου κάνει είναι να δίνει ένα óvo- 
μα σε µία περιοχή µνήµης, στην οποία 
κρατάει τις μεταβλητές που ακολου- 
θούν. 
Έτσι, η εντολή 

ΟΟΜΜΟΝΙΡΑΒΑΜΙΑ,Β,Ο, 
δίνει το όνοµα ΡΑΒΑΜ σε κάποιες θέ- 
σεις μνήμης, στις οποίες θα φυλαχθούν 
"οι μεταβλητές A, B και C µε ακριβώς au- 
τή τη σειρά, δηλαδή πρώτα η Α, µετά η 
B και τέλος η С. 

Τι κερδίζουμε όµως р’ αυτό; Μπορού- 
НЕ να χρησιμοποιήσουμε την τιµή των 
μεταβλητών αυτών µέσα από κάποιο υ- 
ποπρόγραμμα, χωρίς να τις βάζουμε 
στη λίστα των μεταβλητών του υποπρο- 
γράμματος, δίπλα στο όνομά του. Έτσι, 
αν έχουµε το: 


SUBROUTINE TRIWN (RESULT) 
ΟΟΜΜΟΝΙΡΑΒΑΜΙΧΑ, ХВ, ΧΟ 
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RESULT = ХА • 16 + ХВ . 4 + ХС 2 
RETURN 

END. 

μπορούμε να καλούμε µε CALL TRIWN 
(RESULT) και να υπολογίζουμε το RE- 
SULT για διαφορετικές τιµές των ΧΑ, ΧΒ 
και XC, αλλάζοντας απλά τις τιµές των 
μεταβλητών A, В και С του κυρίου προ- 
γράμματος. Κατά την εκτέλεση του UTO- 
προγράµµατος, αυτό που συμβαίνει є 
ναι ότιο υπολογιστής βρίσκει την περιο- 
χή µε όνοµα ΡΑΒΑΜ και αναθέτει στην 
ΧΑ την τιµή της Α, στην ΧΒ την τιµή της 
Βκαιστην XC την τιµή της C. Για να sipa- 
στε πιο ακριβείς, μάλλον «ταυτίζει» πα- 
ра «αναθέτει» τιµές στις μεταβλητές, 
δηλαδή καθορίζει ότι οι θέσεις μνήμης 
που θα καταλαμβάνει η ΧΑ είναι ακρι- 


_ βώς αυτές που καταλαμβάνει η А. 


Αποτέλεσμα αυτής της πράξης είναι 
ότιη κλήση του υποπρογράµµατος είναι 
πολύ πιο γρήγορη, καθώς δεν υπάρχει 
δημιουργία, ανάθεση και σβήσιµο των 
ΧΑ, ХВ και ХС κάθε фора. Υπάρχουν 6- 
µως και δύο πράγματα που πρέπει να 
προσέχει κανείς. Το ένα είναι ότι οποια- 
δήποτε µεταβολή στις ΧΑ, ΧΒ και ΧΟ συ- 
νεπάγεται αντίστοιχη µεταβολή στα Α, 
B και C, καθώς το πρόγραµµα χρησιµο- 
ποιεί την ίδια περιοχή µνήµης για την α- 
ποθήκευσή τους. Το δεύτερο, που έχει 
σχέση και µε το παραπάνω, είναι ότι κά- 
ποια αλλαγή σε µία ΟΟΜΜΟΝ εντολή ή 
στις μεταβλητές της είναι δυνατό να £- 
πηρεάσει όχι µόνο το τμήμα του про- 
γράμματος που έγινε η µεταβολή αυτή, 
αλλά και διάφορα άλλα αποµακρυσµέ- 
να, και φαινομενικά άσχετα, τμήματα 
προγράµµατος. Τελειώνοντας µε την 
COMMON, µπορείτε να βρείτε τι κάνει η 
εντολή 


ΟΟΜΜΟΝΙΤΗΙΑΙΑ.Β,Ο/ΙΤΕΤΗΑΙΧΥ,ΖΤ 
και πώς µπορεί να χρησιµοποιηθεί; 

Θα κλείσουμε, αυτή τη фора, αναφε- 
ρόμενοι σε ακόµα ша µη εκτελέσιµη, AÀ- 
Ла αρκετά χρήσιμη, εντολή, την DATA, 
η οποία χρησιµοποιείται για να δώσει τι- 
μές σε µια σειρά μεταβλητών, χωρίς να 
έχουµε αντίστοιχη σειρά αναθέσεων. Έ- 
τσι, αντί να γράφουμε 


А = 1.2 

В = 8.145 
= 13 

К(2) = 184 


μπορούμε να γράψουμε: 
DATA А, В, N, К(2)/1.2, 8.145, 13, 184 


εντολή που έχει ακριβώς το ίδιο αποτέ- 
λεσµα µε тіс παραπάνω, αλλά είναι πιο 
βολική και εύχρηστη. 


Ч000ҘЯ0010 Цүру 
"1013 S]3ADy3 133]0и DA оүохопо 10л 
13 1101А роодо U 18ΛΙΛΌΛΟ3 ол 3rinoo 
-шш2 DA ΙΟΙΛΧΙΟΙΙ O1 1зо]Хдю mdu 3rinod 
-OUT ΄ὉΙΥΠΟΝ рүшо олршодои 1ΟΧ p ΛῃΟΘ 
«ΠΛΟΙΟ Sori ΛΌ1Ο 119 ΦΟΦΙΞΠµΟ DN 
Ὥλοβο 
μηωοχολοή зо тох рүох пүон 1злХ}зо DV 
-yo 10}depe 59148168 10/09 1Ό13820Ι80χ 
‘мац 
ош зПощз оошо So1Drili1op1o одіяџуш 
01 001л010и 01300 ΛΙι 3rinoomqQ nol 
DA SD1AOA3Tl1d3LI 3101111 I3AD3 A3Q ошо 
AAovoun o 181 әде o1 зїю1юи DA 1311 
-30u ΙΟΙΛΧΙΟΙΗ 01 1зойд@юХоди ол D1_J 
οῃοήβο 13Л10 лзо оопорполпо 9ΟΥΥΟ 
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-полд]}ои £ — Z ‘p — | ‘G — 0 AnoX3 pdyp 01 
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Amı 011010090 o1 5390ф 5300 0ΠΟ]ΛοΙΙ ç 
о300ф 98091 3ΠΠΟΛΟΙΟΝΜ “ΧΙ! `ç no1 ΛΩΙΟ 
-оүшрүүон AM1 SDAQADy о 903 1зпХо| 
Ὅ]λΟΥ оЛуү DlAovorlgog Ші ОА рдо | 
ῬΟΘΙΟΙΟΌ тох 019 
-30 9βΟΠ3ΥΊΙ 10 лпоӯфпүрх пофо олоп 01 
-ND DVVD 11001Х тох 1зфпүох 01 ол о)злох 
13douri pg цорүцо 903009 0үш0 101130 
-M36 )злоф Ὁθ пои оүшо ΟΙΦΟΜ 01 013X 
-ZANO 415 "оүшо ὈλΙΙΩΘΟΧΟΙΙΠ 1ΧΟ тоя 13ү 
-30 о10цо о)злох 18904310» ΊΥΠΟΙΙ ΟΙΦΟΙ! 
110132190 SDAQADy O (51303 U зәјпішод 
01) 20100 13310и 09 NOU 5ц1зуоп О 1310 
лдобох ол DIA ΠΟΙΙΌΠΠΟΡ пої ди nor ЦА 
-оүїиз Ц ΡΦΙΡΠΟΙΠΟ 1Ό18ΛΙΛ лішо1ру 
193001 010 3rlno3)d 
DA ОА 11D% 3rlnoX3 лзо 31010 3ΠΠΟΛΟΙΟΙΙ 
DA ОА D1013V3 01010 Шо ΛΠΟΛΙΞΠΟΟ 
-DU 00 ошоүоцп D|] `(| | — 6 – Z) оолзеох 
о139ои D0 о1ртіпох vogu тох Suo)113 3 
-no2)dO 706 опо1 SLMIA опо1 лои згіпооФо0 
SD тох ЛЗОЦП 01 ΘΌΙΛΦΙΌΗ 1ΘΙΛΧΙΟΙΙ orol 
-ANO ош 01 3ΠΠΟ3ΔΥΟΙΟ оу ᾿ΛΦΩΛΟΥΙΙΙ3 оох 
-DNU O йлодо лшо т1зӯроподои sor 
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-DJ әпо1 3ΠΠΟΟΙΥΟΛΟ юв 0100 ДА ‘anod 
-3фо010 903 ΠΟΙΟΙΛΧΙΟΙΙ NOL озлолох1о 
`пооозз yoy ηγοι зо ΟΝΙΙΛ 
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-OLN ΙΟΙΛΧΙΟΙ о100/ЛА 01 3rinogpionodou 


SDZ ΡΙ8ήΦΧΟ 981009 тох 5300900 511 Ошо 
эгіпооФдоүоХ ол DÁ 110} 09Фі 10у 


ONINOIN 


753301 5ҘҮ 
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10 тоя ΛΠΟΘΟΧ Ὁβ ΟΙΟΠΠΟΟΛΟΟΙΙ pA3riglu 
-3 D1 Опо ΟΙΟΙΙΟΧ 1зоЦүүоз AD ἰιΦ1313 
УӯсІ = Я09 + yt9 130 
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оошо /9Ι8ΟΟΙΟΌΙΌΧ ΛΠΟΛΙΛ DA ОА ото 
-udX nd31]D1Q11DA)3 3NI11ñnO – 9d OL 


9ΌΟ 
олзП]зх о10 оо)зепзио ΛΠΟΘΞΙΟΟΟΙΙ DA 
тоя опояо U ‘оро полҙгізя µΙΟΌΛΟΞ33Η1 
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Το πλήρες τεχνικὸ βιβλιοπωλείο 
και στα computers ! 
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ОЛА ТА ВІВЛІА ГІА: 


ІВМ РС & Συμθατούς 
Amstrad 464, 6128, 8512 
Commodore, Spectrum, ВВС, 
Γλώσσες προγραμματισμού, 
Data Base, Προγράμματα 
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Δεν σας είχαμε προειδοποιήσει ότι 
θα ασχοληθούμε και πάλι µε параџё- 
τρους; Ε, λοιπόν, δεν λέμε ψέματα, αλή- 
θεια είναι! Καιαρχίζουμε, µε µία σοβαρή 
παράλειψη του προηγούμενη μέρους: Ε- 
κεί μιλήσαμε για Global και Local µετα- 
βλητές, αυτό που δεν είπαµε όµως είναι 
ότι µία Global μεταβλητή µπορεί να χρη- 
σιµοποιηθεί απ’ οποιοδήποτε τµήµα του 
προγράµµατος και από τα υποπρογράμ- 
ната, αρκεί να µην υπάρχει στα τελευ- 
ταία μεταβλητή Local µε ακριβώς το ίδιο 
όνομα, οπότε έχει απόλυτη προτεραιό- 
τητα σε σχέση µε τηγενική μεταβλητή. 
Αντίθετα, µία τοπική μεταβλητή, µπορεί 
να χρησιµοποιηθεί µόνο µέσα στο υπο- 
πρόγραµµα στο οποίο είχε οριστεί. 

Ωραία! Τώρα μπορούμε να συνεχί- 
coupe µε variable parameters |“тара- 
ретро! μεταβλητών” (2!)|, σε αντίθεση 
ре тіс value parameters [ “παράμετροι a- 
ριθµητικών τιμών” (?!)| που έχουµε ou- 
ναντήσει μέχρι τώρα. Για να το κάνουμε 
αυτό, ας επιστρέψουµε στο καταταλαι- 
πωρημένο прбүрацра тпс ρουλέτας και 
ειδικότερα στην FUNCTION Random, 
της οποίας τον ορισμό θα αλλάξουμε £- 
λαφρώς σε: 


FUNCTION Random (VAR seed: 
INTEGER; max: INTEGER): INTEGER; 


Τιαλλάξαμε; Προσθέσαµε µία νέα tu- 
πική παράμετρο, την seed, η οποία μάλι- 
στα έχει από μπροστά της τη λέξη VAR. 
Τώρα, μπορούμε να χρησιμοποιήσουμε 
τη νέα αυτή συνάρτηση δίνοντας 


Number: = Random (sporos, 36); 


όπου το 36, όπως και πριν, θα είναι n 
πραγματική τιμκή που αντιστοιχεί στην 
τυπική παράμετρο max, ενώ το sporos 
είναι το όνομα µιας μεταβλητής (προ- 
σέξτε!!! όχι αριθμ. τιµή, αλλά µεταβλη- 
τή!), που αντιστοιχεί στο 5664 του κυ- 
ρίως προγράµµατος. Βέβαια, σύμφωνα 
μ᾽ αυτά που είπαμε παραπάνω, δεν u- 
πάρχει λόγος ώστε να µην λέγεται και 
η sporos seed, εφόσον είναι τυπική με- 
ταβλητή και έχει προτεραιότητα σε σχέ- 
ση µε την αντίστοιχη γενική αλλά θα εί- 
VAL TILO εύκολο να καταλάβετε τι γίνεται, 
αν χρησιμοποιήσουμε διαφορετικό όνο- 
μα. 

Έτσι λοιπόν, μόλις εκτελεστεί η πα- 
ραπάνω εντολή, θα δημιουργηθεί η ue- 
ταβλητή max, που θα πάρει την τιµή 36, 
αλλά η µετβλητή seed θα γίνει ταυτόση- 
µη µε τη μεταβλητή sporos, δηλαδή θα 
καταλαμβάνει ακριβώς τις ίδιες θέσεις 
μνήμης, για όλο το το χρονικό διάστημα 
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που θα εκτελείται η FUNCTION Ran- 
dom. Έτσι, όταν εκτελεστεί η εντολή 
της Random 


seed: = seed + 2 


δεν θα διπλασιαστεί µόνο n seed, αλλά 
και η sporos! 

Αυτό που πετύχαµε τελικά, κάνοντας 
αυτή την αλλαγή, είναι να φτιάξουμε µία 
Function, nou Ва μπορούσαµενατην βά- 
λουµε σε µία βιβλιοθήκη συναρτήσεων, 
και να την χρησιμοποιούμε, χωρίς να 
μας ενδιαφέρει το ποια ονόματα γενι- 
κών μεταβλητών χρησιμοποιεί αυτή, ό- 
πως ήταν προηγουμένως (μην ξεχνάτε 
ότι η seed ήταν γενική μεταβλητή κ.λπ., 
κ.λπ.) 

Οι διαφορές στη χρήση των δύο πα- 
ραπάνω ειδών παραμέτρων (µεταβλη- 
τών -- τιμών) είναι ιδιαίτερα σημαντικές 
και αν πραγματικά ενδιαφέρεστε να pá- 
θετε Pascal katı va γράφετε προγράμμα- 
τα µε το λιγότερο δυνατό απαραίτητο 
debugging πρέπει νατις έχετε συνεχώς 
στο μυαλό σας και να σκέφτεστε πολύ 
πριν καταλήξετε στοποιον απότους δύο 
τύπους παραμέτρων πρέπει уа χρησιµο- 
ποιήσετε. 

Πριν προχωρήσουμε στα «ауаброш- 
κά» υποπρογράµµατα θα τονίσουμε ότι 
συνήθως, οι procedures και Functions 
μπορούν να γράφονται µε όποια σειρά 
θέλουμε, πριν όµως από το κυρίως πρό- 
γραμμα, ώστε να µπορεί αυτό να τις κα- 
λέσει. Κατά όμοιο τρόπο, για να µπορεί 
ένα υποπρόγραµµα να καλέσει κάποιο 
δεύτερο, πρέπει συνήθως αυτό το δεύ- 
τερο, να έχει οριστεί προηγουμένως. Υ- 
πάρχουν όµως δύο περιπτώσεις όπου ο 
κανόνας αυτός µπορεί να µην τηρηθεί: 
η πρώτη είναι η χρήσητης εντολής ҒОН- 
WARD καιη δεύτερη, η χρήση µιας «ανα- 
δρομικής» procedure ή function. 

«Αναδρομή» ή recursion έχουµε όταν 
ένα ипопрбүрациа καλεί τον εαυτό του 
(!), οπότε και ονομάζεται «ауаброшкд» 
ή recursive και έχει κάποια ειδική απαί- 
τηση, τόσο σε λογική όσο και σε χώρο 
μνήμης. 

Για παράδειγµα, ας δούμε ένα πρό- 
γραμμα που υπολογίζει τους πρώτους 
παράγοντες ενός θετικού ακέραιου а- 
ριθμού, μικρότερου πάντως από то MA- 
ΧΙΝΤ. (Για όσους δεν θυμούνται, πρώτοι 
παράγοντες ενός αριθμού είναι οι πρώ- 
τοι αριθμοί που το γινόμενό τους είναι 
ίσο µε τον αριθµό αυτό, π.χ. οἱ πρώτοι 
παράγοντες του 24 είναι οι 2,2,2 και 3). 
Εννοείται ότιο αριθµός αυτός πρέπει να 
είναι μεγαλύτερος από το 2. 

Το πρόγραµµα αυτό έχει ως εξής: 


PROGRAM Prime Factors (INPUT, OUTPUT); 
VAR Divisor, Number: INTEGER; 
PROCEDURE Factor; 
BEGIN 
IF Number MOD Divisor = 0 THEN 
BEGIN 
WRITE (Divisor); 
Number: = Number DIV Divisor; 
Factor (+ Εδώ γίνεται η αναδρομή! +) 
END 
END; 


BEGIN 
WRITE ('Number?'); 
READ (Number); 
WHILE Number >0 DO 


BEGIN 
Divisor: = 2; 
WHILE Divisor < = Number DO 


BEGIN 
Factor; 
Divisor: = Divisor + 1 
END; 
WIRTELN; 
WRITE ('Next Number?'); 
READ (Number) 
END 
END. 


Στοπρόγραμμααυτό, για κάθε νέα ті- 
μή του Divisor, καλείται η procedure 
Factor, n οποία кат αρχήν ελέγχει αν το 
Divisor διαιρεί ακριβώς το Number. Αν 


πράγματι είναι έτσι, τότε γίνονται τρία 
πράγματα: 

1) Τυπώνεται το Divisor 

2) Το Number διαιρείται µε το Divisor 
3) Κατόπιν, η procedure Factor ξανακα- 
Ле τον εαυτό της, για уа εξετάσει ау το 
ίδιο Divisor είναι πάλι πρώτος παρά- 
γοντς του Number και η ίδια διαδικασία 
επαναλαμβάνεται μέχρις ότου διαπι- 
στωθεί ότι δεν είναι πια. 

Τα αναδρομικά υποπρογράµµατα ou- 
νήθως μπορούν να αξιοποιήσουν το γε- 
γονός ότι οι τοπικές μεταβλητές ισχύ- 
ουν µόνο κατά τη διάρκεια της εκτέλε- 
σης του υποπρογράµµατος αυτού. Για 
να καταλάβετε καλύτερα αυτό που λέω, 
µελετείστε το παρακάτω πρόγραμμα, то 
οποίο διαβάζει µια σειρά από χαρακτή- 
ρες από το πληκτρολόγιο, μέχρις ότου 
πατηθεί το SPACE και κατόπιν τους τυ- 
πώνει µε ανάποδη σειρά! 


PROGRAM Reverse Order (INPUT, OUTPUT); 
PROCEDURE SaveChar; 


READ (Ch); 
IF Ch< > ' ' THEN SaveChar 
(+ Αναδρομή!) 
ELSE WRITELN; 
WRITE (Ch) 
END; 
BEGIN 
WRITELN ('Enter your мога”); 
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SaveChar; 
WRITELN 
END. 


> αυτό το πρόγραµµα δεν τυπώνεαι 
κανένας χαρακτήρας μέχρις ότου δώ- 
σουµε το χαρακτήρα space. Π.χ. αν του 
δώσουμετα γράμματα TEST και μετά κε- 
уб, το πρόγραμμα θα τυπώσει "ΤΘΕΤ’. 
Όταν του δώσουμε το κενό, το πρό- 
үрацџа θα έχει κάνει ήδη πέντε επανα- 
λήψεις, από τις οποίες όµως δεν θα έχει 
ολοκληρωθεί καμιά! Θα ολοκληρωθούν 
όµως όλες, αλλά µε ανάποδη σειρά, δη- 
λαδή πρώτα η πέμπτη, µετά η τέταρτη, 
η τρίτη, η δεύτερη και τέλος η πρώτη, o- 
πότε τα γράμματα θα τυπωθούν µε ανά- 
поёт σειρά! Δεν είναι πράγματι фаута- 
στικό; Και πού να δείτε το επόμενο na- 
ράδειγµα... 

«όπου δύο υποπρογράµµατα µπορεί 
να είναι «αμοιβαία ауаброшка»!, δηλα- 
δή το ένα καλεί το άλλο και αντίστροφα! 
Για να μπορέσει να γίνει όµως αυτό, χω- 
ρίς να παραβιαστεί η προὐπόθεση που 
αναφέραμε στην αρχή, πρέπει να γίνουν 
δύο πράγματα: ‘Н να χρησιµοποιηθεί η 
εντολή FORWARD (παραπάνω γι’ αυτήν 
την επόμενη фора) ή το ένα υποπρό- 
үрацџа να ορίζεται µέσα στο άλλο. Па- 
ρατηρείστε το παράδειγµα: 


PROCEDURE Abcd; 


VAR..... 


END; (+ of Function Хул! ») 
BEGIN (+ procedure Арса +») 


END; (» of procedure Abcd +) 


Τελειώνουμε κάνοντας µια παρατή- 
ρηση о’ αυτόν τον ελαφρά μπερδεμένο 
(2 τι λέει ρε αυτός), αλλά εξαιρετικά 
χρήσιμο, σε ορισμένες περιπτώσεις, 
τρόπο κατασκευής προγραμμάτων: 'О- 
λεςοιγενικές μεταβλητές που έχουν δη- 
λωθεί στην Abcd μπορούν άνετα να χρη- 
σιμοποιηθούν από την Хугі, αρκεί βέ- 
βαια να µην υπάρχουν τοπικές µεταβλη- 
τές µε то ίδιο όνομα µέσα στην Xyzt. 'О- 
μως, προσοχή, каша από τις τοπικές 
µετβλητές της Xyzt δεν είναι διαθέσιμη 
στην Abcd! 7 

Αυτά για σήµερα, ποιος ξέρει τι σας 
περιμένει την επόµενη φορά... 
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path 


SUBST.COM. 

είναι τα subdirectories 
που θα ψάξει το DOS για 
να βρει το file 
SUBST.COM. Αν δεν δη- 
λώσουμε path το DOS 
χρησιμοποιεί το τρέχον 
directory. 

d: είναι To аіѕк drive που θα 
ενωθεί µε ένα directory. 
είναι το directory που θα 
αντιστοιχηθεί µε το drive. 
ID Με την επιλογή αυτή το 
SUBST επαναφέρει το 
drive στην αρχική του κα- 
τάσταση. 


path 


SYS 

Με την εντολή αυτή µεταφορά 
του συστήµατος στο συγκεκριµένο 
drive. Όταν λέμε µεταφορά συστή- 
ματος εννοούμε τα δύο hidden files 
το 10.5Ү5, MSDOS.SYS καιτο СОМ- 
MAND.COM. 


Σύνταξη: 
[drive:] [path] 9Υ5 d: 


που ба ψάξει το DOS για 
να βρει то file 5Ұ5.СОМ. 
Ау δεν δηλώσουμε path 
το DOS χρησιμοποιεί το 
τρέχον directory. 

d: είνα! το disk drive όπου 
θα τοποθετηθούν τα 
system files. 


TIME 
Με την εντολή αυτή γίνεται εμ- 
Φάνιση και αλλαγή της ώρας. 


Σύνταξη: 

TIME [HH:MM[:SS[.hh]]] 

HH είναι οι ώρες. 

ΜΜ είναι τα λεπτά. 

ss είναι τα δευτερόλεπτα. 

hh είναι τα δέκατα του δευ- 
τερολέπτου. 

TREE 


Н εντολή αυτή εμφανίζει τη δομή 
των καταλόγων ενός δίσκου. Η εν- 
τολή εμφανίζει όλους τους υποκα- 
ταλόγους στην οθόνη (προαιρετικά 
και τα αρχεία τους). 


περιέχει το file 

ΤΗΕΕ.ΟΟΜ. 

είναι τα subdirectories 

που θα ψάξει το DOS για 

να βρει το file 

ΤΗΕΕ.ΟΟΜ. Αν δεν δηλώ- 

σουµε path то DOS χρη- 

σιµοποιεί το τρέχον di- 

ΓΘΟΙΟΓΥ. 

d: είναι To disk drive που 
θέλουμε να δούμε τη δο- 
μή του. 

IF H παράμετρος αυτή ðn- 
λώνει oto TREE va τυπώ- 
σει και τα ονόματα των 
αρχείων που υπάρχουν 
σε κάθε υποκατάλογο. 


path 


TYPE 

Με την εντολή αυτή εµφανίζου- 
με ένα αρχείο στην συσκευή εξόδου 
(συνήθως είναι η οθόνη). Η εντολή 
αυτή είναι εσωτερική εντολή του 
DOS. 


Σύνταξη: 


[drive:] [path] TREE [а:] [ΙΕ] 
είναι To disk drive που 


TYPE file-spec 

file-spec είναι το όνομα του αρ- 
χείου που θέλουμε να £p- 
Φανισθεί. 


drive: είναι το disk drive που 
περιέχει το file Σύνταξη: 
ΘΥΘ.ΟΟΜ. 
path είναι τα subdirectories drive: 
ΟΔΗΓΟΣ ΔΓΟΡΑΣ 
ΑΝΑΛΩΣΙΜΑ 
ΑΘΗΝΑ 


ЗМ HELLAS (Δισκέττες): ΠΑΡΟΔΟΣ ΚΗΦΙΣΣΟΥ 150 12131 ΑΘΗΝΑ, 
161.5720211, DATA MEMORY ΑΕ (Basf): ΑΚΤΗ ΘΕΜΙΣΤΟΚΛΕΟΥΣ 4 
18536 NEIPAIAZ, tel. 4183879, DATAFORMSO ΕΠΕ (Χαρτί): ΑΓ. ΙΩΑΝ- 
ΝΟΥ 104 ΡΕΝΤΗΣ 18233 ΑΘΗΝΑ, tel. 4811368, DELTA SOUND (καθα- 
ριστικά): Β΄ ΑΔΙΕΞΟΔΟ ΟΛΓΑΣ 6 10682 ΑΘΗΝΑ, tel. 9755409, 
І5ОТІМРЕХ (δισκέττες): ΗΠΕΙΡΟΥ 18-20 10433 ΑΘΗΝΑ, tel. 
8230011, KODAC HELLAS (δισκέττες, περιφερεικά): ΠΑΡΑΔΕΙΣΟΣ 
ΑΜΑΡΟΥΣΙΟΥ 10682 ΑΘΗΝΑ, tel. 6827766, ΝΙΚΕΙΙ5 ENTERPRISES 
(XIDEX): A. ΣΥΓΓΡΟΥ 314-316 17673 ΑΘΗΝΑ, tel. 9566126, ААМКАЛ 
ΛΕ(Μεβανοταινίες, Opus): ΚΑΠΟΔΙΣΤΡΙΟΥ 5 ΑΛΙΜΟΣ 17455 AOH- 
ΝΑ, tel. 9839720, ΑΞΙΟΣ Е.Е. (Харті): ПАПАРРНГОПОҮЛОҮ 40 10561 
ΑΘΗΝΑ, tel. 6424400, ΔΑΜΚΑΛΙΔΗΣ ΑΕ (Polaroid): ΚΑΡΑΓΕΩΡΓΗ 
ΣΕΡΒΙΑΣ 7 10563 ΑΘΗΝΑ, tel. 3248391-4, Ө.Х. ΣΤΑΥΡΙΝΑΔΗΣ Ε.Π.Ε. 
(Infov): ΕΒΡΟΥ 75-ΣΙΝΩΠΗΣ 11527 ΑΘΗΝΑ, tel. 7709529, ΜΕΚΑΝΟ- 
TEKNIKA (Disks): ΔΗΜΗΤΡΛΚΟΠΟΥΛΟΥ 78 11741 ΑΘΗΝΑ, 
tel.9236789, ΠΡΟΜΗΘΕΥΣ ΕΠΕ (Μεβανοταινίες Pelican, FUJI): 
AHMH ΡΑΚΟΠΟΥΛΟΥ 64 11741 ΑΘΗΝΑ, tel. 9239978 9238109, PA- 
МО ΚΑΤΟΥΜΑΣ: ΠΡΑΞΙΤΕΛΟΥΣ 15-19 10562 ΑΘΗΝΑ, tel. 3250412- 
16, ΤΡΙΑΣ AE (Datalife, Verbatim, μεβανοταινίες): Λ. ΣΥΓΓΡΟΥ 
1911743 ΑΘΗΝΑ, tel. 9222445, ТҮПОМНХАМОГРАФІКН ΑΕ (Έντυ- 
πα): Λ. ΒΑΡΗΣ ΚΟΡΩΠΙ 10682 ΑΘΗΝΑ, tel. 6622112, Φ. ΒΟΥΝΑΤΣΑΣ 
ΥΙΟΙ ΑΕ (Maxell: Л. ΣΥΓΓΡΟΥ 236 17672 ΑΘΗΝΑ, tel. 9514141 


ΘΕΣΣΑΛΟΝΙΚΗ 

INFORM: ΒΑΣ. ΗΡΑΚΛΕΙΟΥ 51-53 54625 ΘΕΣΣΑΛΟΝΙ- 
ΚΗ,{ε|.269042, MEMORY K. ΓΙΑΝΝΑΚΟΠΟΥΛΟΣ ΕΠΕ: ΔΙΑΛΕΤΤΗ 
554621 ΘΕΣΣΑΛΟΝΙΚΗΘΙ. 275463, ΑΞΙΟΣ (Χαρτί: ТЕРМА ΟΔΟΥ 
ΧΑΛΥΒΟΥΡΓΕΙΟΥ 54625 ΘΕΣΣΑΛΟΝΙΚΗ, tel. 768177 760932, ПА- 
ΠΑΔΟΠΟΥΛΟΣ ΣΙΑ ΟΕ: ΑΝΤΙΓΟΝΙΔΩΝ 11 54630 ΘΕΣΣΑΛΟΝΙΚΗ, 
tel. 531333, ΧΡΗΣΤΟΣ ΓΕΩΡΓΙΑΔΗΣ: ΔΩΔΕΚΑΝΗΣΟΥ 17 54655 
ΘΕΣΣΑΛΟΝΙΚΗ, tel. 544990 540550 


SOFTWARE HOUSES 


AMSTRAD CLUB: Ηπείρου 6, Μουσείο, Αθήνα, 8236444 ASCII, 
Αθηνάς και Παπαγιάννη ΕΛευσίνα, 5548406. COMPUTER 
ΜΑΚΚΕΤ: Σοβωμού 26, Αθήνα 3611805 GREEK SOFTWARE: 
Πριγκηπονήσων 28, Αθήνα, 6443759 4318024. РІМ 


SOFTWARE ΕΠΕ: Ζωοδόχου Πηγής 48, 5606487, 5642677. 
ΠΡΟΜΗΘΕΑΣ: Έββηνος Στρατιώτου 934, 264 41 Λάρισα (041) 
432523 SINGULAR: A. ΑΠεξάνδρας 158, 11521, 6495176. 
ТЕСНМО5ОЕТ: Τζωρτζ 34 & Στουρνάρα, Αθήνα, 3624866. ТЕ- 
ΧΝΟΧΡΟΝΟΣ: Πάτρες 66-68, Πάτρα, 274025.ΜΙΕΝΟΙΔΕΕΣ: £0- 
Βωμού 16, 3642110 
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PERSONAL & ΗΟΜΕ COMPUTERS 
H ΔΥΝΑΜΗ’ ΣΤΟΥΣ Η/Υ 


COMPUTERS 

PERSONAL HOME 
AMSTRAD PC1512/1640 | AMSTRAD CPC 464/6128 

MULTITECH-ACER | COMMODORE 64 C/128 D 


MAC-XT TURBO | SPECTRUM +2/+3 
ASI XT | SPECTRUM PACK 


AMIGA 500 


ΕΓΓΥΗΣΕΙΣ ΑΝΤΙΠΡΟΣΩΠΕΙΩΝ 


ΔΙΣΚΕΤΤΕΣ ΑΝΑΛΩΣΙΜΑ 
MONITORS PRINTERS 
ОЛА ΕΤΟΙΜΟΠΑΡΑΔΟΤΑ 
singular тєснкоѕоғт сомритек logic 


Н ΕΠΙΧΕΙΡΗΣΗ ΔΙΕΥΘΥΝΕΤΑΙ 
ΑΠΟ AINA. ΠΟΛ. ΜΗΧΑΝΙΚΟΥΣ Ε.Μ.Π. 


| COMPUTER POWER | 
ΠΛ. ΑΓ. ΔΗΜΗΤΡΙΟΥ 4 ΟΙ ΑΜΠΕΛΟΚΗΠΟΙ 
ΑΜΠΕΛΟΚΗΠΟΙ (ΠΑΝΟΡΜΟΥ) ΕΧΟΥΝ ΤΟ ΚΑΛΛΙΤΕΡΟ 


ТК 11523 THA. 6443181 COMPUTER SHOP!!! 


ВЕ ΔΕΛΤΙΟ ΣΥΝΔΡΟΜΗΣ ΓΙΑ ΤΗΝ ЕПТА BASE 


Με αυτό το δελτίο συνδρομής µπορείτε να γίνετε και εσείς µέλος της ЕПТА BASE. 

Το κόστος σύνδεσης είναι 800 δρχ. το µήνα για 30 λεπτά συνολικής χρήσης την ηµέρα. 
Κάθε χρήστης της ΕΠΤΑ BASE έχει πρόσβαση και στις υπηρεσίες του δικτύου ΑΡΓΩΣ. 
Κοίτα στήλη MODEM και AMSTRAD). 


Θα ήθελα να γίνω συνδρομητής στη βάση πληροφοριών ΕΠΤΑ BASE για [ | µήνες 
Σας αποστέλλω την ταχυδρομική επιταγή Νο .............. με то ποσότων [ ] L] C] C] δρχ. 


— 


Τοπεριοδικό ENTA παρέχει όλοτον κατάλληλο εξοπλισμό KAL TIG τεχνικές πληροφορίες που χρειάζονται 
για τη σύνδεση µε το δίκτυο. 

Για περισσότερες πληροφορίες επικοινωνήστε στο τηλ. 3610039 ή περάστε από τα γραφεία του περιοδικού: 
Μπόταση 9, κάθε Τρίτη και Παρασκευή 5-7 μ.μ. για µια ζωντανή επίδειξη. 


ТА ПРОГРАММАТА ΣΕ ΔΙΣΚΕΤΑ 


ΦΤΑΝΕΙ ΠΙΑ! Σηκωθείτε από то πληκτρολόγιο, και παραγγείλετε 
τα προγράμµατατου περιοδικού, σε δισκέ τα Amsoft 3", 
πληκτρολογημένα, έτοιμα να τρέξουν... Στείλτε ΟΠΩΣΔΗ ΠΟΤΕ 
το παρακάτω κουπόνι, σωστά συμπληρωμένο στη διεύθυνση 

του περιοδικού µε την ένδειξη «Τμήμα Αποστολής Δισκετών». 
Σας στέλνω την ΤΑΧΥΔΡΟΜΙΚΗ επιταγή Νο................. µε το ποσό 
ТОМ ақауына Δρχ., για να µου στείλετε τις δισκέτες 

µε τα προγράµµατα των τευχών που έχω σημειώσει. 


ба ήθελα να γίνω συνδρομητής στο περιοδικό η Ελληνική πλευρά του AMSTRAD, για 6 τεύχη O, 12 
τεύχη O. 

Σας αποστέλλω την ταχυδρομική επιταγή Νο................ με το ποσό των 1.400 δρχ. O, 2.800 δρχ. O. Αν θελή- 
σω μπορώ οποιαδήποτε στιγµή να διακόψω τη συνδρομή µου και να πάρω πίσω το υπόλοιπο των χρημάτων 
μου. 


ІНЛЕШІНЕ ο ος ο ο ο ο T мие ιο ss ETE, 
ΕΝΑΡΞΗ ΣΥΝΔΡΟΜΗΣ ΤΕΥΧΟΣ ΝΟ:.................................................. 


Στα σύνορα του Ε.Π.Τ.Α. 


Επιμέβεια: N. Γεωργιάδης 


ΦΙΑΛΤΗΣ 


-- ΓΙΑΝΝΗΣ ΠΑΡΙΣΗΣ 


Με την Αννα είχαµε μεγαλώσει μαζί. 'H- 
ταν éva χρόνο μικρότερη από μένα, ра náv- 
τα έδειχνε μεγαλύτερή μου. Είχαμε μάϑει να 
ζούμε σαν αδέλφια, µετους τσακωμούς µας, 
µε τα παιχνίδια µας, ре тіс χαρές και τις λύ- 
πες µας. Παντού μαζί, για είκοσι δυο ολό- 
кАпра χρόνια που µας είχαν δέσει τόσο ψε- 
ра, ώστε να µην µπορεί κανένα γεγονός να 
διαλύσει αυτόν τον αδελφικό δεσμό. Έτσι 
τουλάχιστον πίστευα. 

Κάποιο θράδυ п Αννα έφερε στο σπίτι 
της κάποιον. Τον κρατούσε από το χέρι κα- 
δώς περνούσαν στο απέναντι πεζοδρόμιο κι 
εγώ πίσω από το τζάµιτου δικού µου σπιτιού 
ένοιωσα κάτι να σπάει µέσα µου. Τους á- 
койса у ανεθαίνουν τα σκαλοπάτια της £t- 
σόδου κι άρχισα ασυναίσϑητα να µετράω τα 
θήματα. «Ένα... δύο... τρία... τέσσερα... ...δέ- 
ка ...έντεκα: Τώρα έπρεπε у ακούσω το á- 
отура της πόρτας του διπλανού σπιτιού. Οι 
γονείς της έλειπαν σε κάποιο ταξίδι και δα 
έμεναν μόνοι οι δυο тоос και... о Θεέ µου. 
Κόλπσατο αυτί µου στον τοίχο v αφουγκρα- 
ото ра αυτό που άκουσα ήταν το χτύπημα 
της δικής µου πόρτας. Σάστισα. «Μι... шоо 
λεπτό..» προσπάθησα να φωνάξω ра δεν 
ξέρω αν ακούστηκα μέχρι έξω. Πήρα pepi- 
кес θαδιές ανάσες για να πρεµήσω και πήγα 
στην πόρτα. 

«Γεια σου Γιάννη», µου είπε μόλις άνοι- 
ѓа. Μου χαμογέλασε περήφανα και συνέχι- 
σε: «Από бо ο Σπύρος. Ἠδελα να τον γνω- 
ρίσεις πρώτα εσύ». 

Αυτός µου άπλωσετο χέρι «Χαίρω πολύ. 
Μου χει πολλά για σένα η Αννα». 

«А! Ναι;» είπα κι εγώ хаба, на τη φράση 
µου την σκέπασαν τα λόγια της Άννας. «Ξέ- 
ρεις, σκοπεύουμε να παντρευτούμε το Па- 
oxa. Το Σάθθατο, да µε ζητήσει επίσημα 
από τους γονείς μου...» 

Συνέχισε να μιλάει на εγώ δεν ἄκουγα 
та ті έλεγε. Èr αυτιά µου κυριαρχούσαν άλ- 
λες φωνές, φωνές των γνωστών και των συγ- 
γενών που εὐχονταν: «Να ζήσετε» καὶ στα 
μάτια µου είχα την εικόνα της Άννας µε то 
κατάλευκο νυφικό της να φιλάει στα χείλια 
τον Σπύρο. 

Εκείνο το θράδυ δεν μπορούσα να κοι- 
μηϑώ. Κάϑε φορά που έκλεινα τα μάτια µου 
νόμιζα πως άκουγα τα ερωτόλογα του Σπύ- 
ρου καὶ της Αννας, στο διπλανό σπίτι και 
πεταγόµουν από το κρεθάτι. Κάποια στιγµή 
σηκώδηκα και ντύθηκα θιαστικά. Κατέθηκα 
γρήγορα тіс σκάλες και καθάλησα τη µηχα- 
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уй, χωρίς να ξέρω που δέλω να πάω на τελι- 
κά κατέληξα στο σπίτι ενός φίλου µου, Ká- 
πως δέκα χιλιόμετρα µακριά. Δεν του είπα 
τίποτα για την Άννα ñ για péva, του είπα pó- 
νο ότι ϑέλω να κοιμηϑώ. Μου έστρωσε σ᾽ 
έναν καναπέ κοντά στην είσοδο καὶ σχεδόν 
μόλις ξάπλωσα µε πήρε ο ὕπνος. 

Ξύπνησα από έναν εφιάλτη. Έθλεπα τον 
εαυτό µου να παραθιάζει μ᾽ ένα µεγάλο κα: 
τσαθίδι την πόρτα του σπιτιού της Аууас, 
να προχωράει αργά στο μακρόστενο χωλ 
και να πλησιάζει στην κρεθατοκάµαρα. Έ- 
θλεπα δολά. Κάτι σαν ιδρώτας έπεφτε στα 
μάτια µου µα προχωρούσα. Πάνω στο κρε- 
Ват τα γυμνά корша της ΄Αννας και του 
Σπύρου αναπαύονταν, ύστερα апо — ποιος 
ξέρει πόση — κόπωση. Τώρα τους έθλεπα 
πιο καδαρά. H ΄Αννα ήταν ανάσκελα κι ο 
άλλος στο πλάι. Έφτασα anó πάνωτους, σή- 
коса το κατσαθίδι και το ξανακατέθασα µε 
δύναμη στον λαιμό του Σπύρου. Ένας πίδα- 
κας από αίμα πετάχτηκε στο πρόσωπό µου 
και στα ρούχα µου. Άκουσα την Аууа να 
φωνάζει κάτι на δεν καταλάθαινα τι. Н φωνή 
της πνίγηκε καθώς το κατσαθίδι καρφώδη- 
κε και στον δικό της λαιμό. 

Ανακάϑησα στον καναπέ ταραγμένος. 
«Θεέ µου τι όνειρο ήταν αυτό,» σκέφτηκα. 
Προσπάδησα να συνέλδω για να ξανακοι- 
рпдо, ра µου ήταν αδύνατο κάτι τέτοιο, γι’ 
αυτό αποφάσισα να бүш λίψο έξω. Δεν άνα- 
уа то фос για να µην ενοχλήσω τον φίλο 
µου που κοιμόταν λίγο πιο πέρα και ντύδη- 
κα στα σκοτεινά. Σιγά σιγά άνοιξα την πόρτα 
και θγήκα. Ακόμα δεν είχε αρχίσει να χαρά- 
ζει. 

Έσπρωξα τη μηχανή µε τα χέρια λίγα 
µέτρα πιο κάτω, σε µια κολώνα του Δήμου 
κι έσκυνα στον καθρέφτη να φτιάξω λίγο та 
μαλλιά µου. Και τότε πάγωσα. Το πρόσωπό 
μου, τα χέρια µου... τα ρούχα pov... Ἠταν 
αίμα. 


Οι χειροπέδες µε πονούσαν στους καρ: 
πούς κάθε φορά που κουνούσα τα χέρια 
μου. O ανακριτής θηµάτιζε μπροστά µου 
καὶ µε κοιτούσε συνεχώς στα μάτια χωρίς να 
μιλάει για αρκετή ώρα. Κι αυτό το φως... о 
προθολέας στο πρόσωπό µου... 


«Λοιπόν;» ρώτησε σε µια στιγµή o ауа- 
κριτής. Hrov ήρεμος σε σχέση pe tnv npon- 
γούμενη μέρα που µε είχαν σαπίσει στο 
ξύλο. 


«Τι λοιπόν.» απάντησα σπασμένα. «Σας 


το είπα χιλιάδες φορές δεν ξέρω τι έγινε...» 
Έθαλα τα κλάματα. 
«Άκουσε µε φίλε. Δεν θγάζεις τίποτα έ- 
τσι. Πώς θρέθηκε το αίμα πάνω σου;» 
«Δεν ξέρω σας λέω. Εγώ ήμουν μακρυά 
απὀ κει». 
«Ωραία. Ωραία» έκανε αυτός «Ἠσουν 
μακρυά από κει. Πού στο διάολο ήσουν;» 
«Είχα πάει να κοιµηδώ σ ενός φίλου µου 
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то σπίτι, κάπου δέκα Χιλιόμετρα µακριά». 


«Έχεις μάρτυρες;» ρώτησε, ра µετά ov- 


νέχισε: «Αν και δεν σε θοηϑάει αυτό.» 

«Έχω. Τον φίλο роо». 

«Πώς λέγεται» ρώτησε ξανά και κάδισε 
бара σε ша πολυϑρόνα. 

«Παύλος Στεριόπουλος, οδός..» беу 
πρόλαθα να τελειώσω την φράση µου. O α- 
νακριτής πετάχτηκε από το κἀδισμά του και 
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ὃς 


µου έδωσε ένα χαστούκι µε την ανάποδη 
του χεριού του. Μάτωσαν τα χείλια µου κι 
ένιωσα στο στόμα µου την γεύση του aipa- 
τος. Αυτός έχωσε τα χέρια στις τσέπες του 
και είπε. 

«Παύλος Στεριόπουλος ε; Παλιοκαδίκι. 
Μήπως δες να πούμε στον ιατροδικαστή να 


τον ρωτήσει πώς του κάρφωσες το κατσαθί- 
δι στον λαιμό;» 


Επικοινωνήστε κι εσείς αλληλο- 
γραφικά µε то Е.П.Т.А. Όλα τα 
γράμματα διαθάζονται και λαμθά- 
νονται σοθαρά υπόυπ. Καδορίζουν 
την πορεία Του περιοδικού, λύνουν 
απορίες, δίνουν ιδέες, εκφράζουν 
παράπονα και τόσα άλλα, που да κα- 
ταλάμθαναν όλη rn στήλη της αλλη- 
λογραφίας... 

Η πλήρης διεύϑυνση είναι: 

Προς Εκδόσεις Ανάδραση 

Περιοδικό: Ε.Π.Τ.Α. 

Μπόταση 9, 106 82 


Аүаппто περιοδικό ΕΠΤΑ σου γράφω 
πρώτη φορά και αρχικά σε συγχαίρω για 
την ποιότητά σου (εξωτερική και εσωτε- 
ρική). H θελτίωση από το lo τεύχος υ- 
πήρξε πραγματικά ραγδαία καὶ ήταν κάτι 
το απρόθλεπτο. Εύχομαι να συνεχίσεις 
πάντας έτσι. Είμαι φοιτητής στο Γεωλογι- 
κότμήμα Πατρών και έτσι да σου ζητήσω 
απλά να προσϑέσεις µερικά πιο επιστη- 
μονικά προγράµµατα. π.χ. σε κάποιο από 
τα προηγούμενα τεύχη σου είχε ένα πρό- 
үраџра то οποίο ретп μέθοδο ελαχίστων 
τετραγώνων εύρισκε και έφερνε την ευ- 
ϑεία µε την ιδανικώτερη κλίση µέσα από 
ένα σύνολο σημείων. Πώς όµως да µπο- 
ρούσαμε να φτιάξουμε µια καμπύλη µε- 
ταξύ κάποιων σημείων; Επίσης n ар1дуп- 
τική ανάλυση και κυρίως ot πίνακες, δια- 
φορικές εξισώσεις και ολοκληρώματα 
είναι πάρα πολύ χρήσιμα για ένα καλό 
πρόγραμμα. Επίσης κάποια υπορουτίνα 
που να γεμίζει (fill) οποιοδήποτε σχήμα 
(όπως εκείνη για τον 464) ή ακόµη ша 
υπορουτίνα που να γεμίζει µε διαφορετι- 
κά σχέδια έναν κύκλο, ιστόγραµµα κλπ. 
Τέλος ὃα ήθελα να επεζηγήσεις περισ- 
σότερο τις εντολές 1) Memory, 2) Peek, 
3) Poke, 4) RND, 5) SYMBOL, 6) Call, 7) 
DRAWR, 8) openin, openout. 

Και τώρα ένα παράπονο: χρπσιµοποί- 
noa το πρόγραµµα GRAPHIC-COPY και 
έκανα screen dump апо ένα роуохроро 
6128 σε ένα NL-10 printer ότι ο κύκλος 


θναίνει овал (έλλειυπ) και στο πρόγραμ- 
ра είναι ότι ο κύκλος θγαίνει овал (έλ- 
пуп) και στο πρόγραµµα µου δεν eni- 
τρέπεται να χρησιμοποιήσω εξίσωση ἑλ- 
λειψης για να τον διορϑώσω. Αυτό το 
πράγμα πιστεύω ότι да προέκυυε και σε 
άλλους αναγνώστες και да επιθυμούσα 
να µου απαντούσες εάν υπάρχει λύση (µε 
κάποια ίσως επέµθαση στο 
СВАРНІС-СОРҮ). 

Ελπίζω να unv σας κούρασα πολύ και 
σας αφήνω να συνεχίσετε το μακρύ προ- 
үраџрратіотіко έργο σας. 

Με ектірп 
Σπύρος Μπέλλας 
Νέο Ηράκλειο 


Φίλε Σπύρο 

Σ᾽ ευχαριστούμε για τα καλά σου λόγια. Ὁ- 
πως да έχεις δει έχουμε ξεκινήσει µια νέα στή- 
Ап tnv «Πανεπιστηµιο-ϑέματα» που παρουσιά- 
ζει επιστημονικά προγράµµατα. 

Υπορουτίνα για fill ο 6128 και ο 664 έχουν 
έτοιμη. 

Ме την εντολή Memory ὁπλώνουμε στον v- 
πολογιστή πόση μνήμη да χρησιμοποιήσει για 
τα BASIC προγράμματά μας. 

H εντολή РЕЕК (<Addr>) επιστρέφει το 
περιεχόμενο της διεύϑυνσης που της δίνουμε 
σαν παράμετρο. 

H εντολή POKE (<Аааг>, <Value>) 
θάζει στη διεύθυνση <Addr> την τιμή 
<Value>. 

Με την εντολή SYMBOL μπορούμε να ξα- 
ναωρίσουµε τους χαρακτήρες. 

H εντολή DRAWR σχεδιάζει µια γραμμή 
από тп δέση του Graphics Cursor σε µια σχετι- 
кп δέση. 

Η εντολή ΟΡΕΝΙΝ ανοίγει ένα αρχείο για 
διάθασμα. ενώ n ОРЕМООТ για γράμιμο. 

Για το GRAPHICS-COPY, да δημοσιεύ- 
сооне σε προσεχές τεύχος µια τροποποίηση 
ώστε να τυπώνει καλύτερα. 


10 REM * t + € £ з % "ανα 
20 REM ** FILE'S UNERASER BY JOHN 
KALLIDERAKIS ** 
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30 REM "ононе 
40 МОРЕ 2: GOSUB 120: LOCATE 30,2: 
PRINT”FILE'S ОМЕКАЅЕВ”: GOSUB 
120; LOCATE 1,21: GOS 

UB 120: LOCATE 15,22: PRINT ”1. 
UNERASE ΕΠ. 2. ΑΝ 

OTHER DISC 3. ЕХІТ”: WINDOW 
:0,5,75,5,20: МІМрОМ/?1,5,75,20,20: 
РОКЕ &A701,229 

50 CLS: САТ 

60 R$ =INKEY$ 

70 IF R$ =”1” THEN INPUTt1, ΄ΕΠΕ5 
NAME ТО UNERASE:”, A$:IREN, 

rO:” + А$,А$ 

80 IF R$ =”2” THEN РВЇМТ+1‚ “INSERT 
DISC IN DRIVE A: AND PRESS ANY 
KEY”: CALL &BB18: GOTO 50 

90 IF R$=”3” THEN CALL 0 

100 CLS#1: GOTO 60 

110 END 

120 PRINT STRING$ (80,154): RETURN 

Аүаппто EMTA 

Στο τεύχος 10 παρουσιάζεται µια pov- 
τίνα που σα σκοπό της έχει το «ΒΡΥΚΟ- 
ΛΑΚΙΑΣΜΑ ΑΡΧΕΙΩΝ ΣΤΑ СРС». Βλέ- 
поутас тас DATA που ὃα έπρεπε να πλη- 
κτρολογήσω αποφάσισα να φτιάξω µια 
δική µου ρουτινούλα (μικρή κι εξ ολο- 
κλήρου σε BASIC που ϑα έκανε την ίδια 
δουλειά... 

То «κατασκεύασμά» µου υπάρχει apé- 
σως παρακάτω κι ελπίζω να δημοσιευτεί 
μέσα από τις σελίδες του περιοδικού 
σας. 

Με εκτίμηση 
Καλλιντεράκης Γιάννης 
Φοιτητής Η/Υ συστημάτων 


Φίλε Γιάννη, 
Σ᾽ ευχαριστούμε πολύ για τη ρουτινούλα 
που µας έστειλες. 


Την παρακάτω ρουτίνα µας την έστειλεο 
Μιχάλης Κολτσίδας και µας δίνει тп ðv- 
νατότητα να χρησιμοποιήσουμε το 
character set του ART STUDIO στα προ- 
γράμματά µας. 

1 listing for USING ART STUDIO'S 


CHARACTER SETS IN OUR PROGRAMS: 
MICHAEL KOLTSIDA: LARISA TEL. 256529 
2 MODE 2: INK 1,26:PEN 1:PRINT "BALTE 
THN DISKETA ME TO art.studio KAI 
PATHSTE ENA PLHKTRO”: CALL 
&BB18:DIR,” *.FNT" 

3 SYMBOL AFTER 31 

4 INPUT "DWSTE ONOMA CHARACTER- 
SET APO art-studio: 2 .FNT:”;a$ 

5 MODE 2:LOAD A$,&C000:DIM a(8):FOR 
i=32 TO 127:FOR j=0 TO 7:a(j+ 1) = PEEK 
(8%(1- 32) + &С000 + ):МЕХТ j:SYMBOL 
ia (1), а (2), а(3), а(4), а (5), а (6), а (7), а 
(8): NEXT i: KEY 9, "3" + СНК$(13) 

+ "топ" + CHR$(13):CLS:PRINT "press 9 
Κον їо тип aqain” 


Αγαπητό περιοδικό 

Σου αξίζουν συγχαρητήρια για την 
προσπάδεια που ὃα πρέπει να συνεχιστεί 
για να παραμείνεις ένα από τα κορυφαία 
ελληνικά περιοδικά στο είδος σου. 


Έχω έναν 6128 και ζητώ тп συμθουλή 
σου στο εξής πρόθληµα που παρουσιά- 
στηκε: 


Έκανα format -- κατά λάδος θέθαια -- 
ве ша γραμμένη δισκέτα καὶ то μόνο που 
πρόλαθα να κάνω ήταν να πατήσω το 
Escape καϑώς «φορμαριζόταν» το Sector 
0. Φυσικά το FORMAT σταμάτησε αλλά 
δίνοντας ΟΑΤαΐοα έπαιρνα το μήνυμα 
178 kfree, εκεί που προηγουμένως υπήρ- 
χαν μόνο 50 kfree. Προσπάδπσα και µε 
ODDJOB αλλά το μόνο που κατόρδωσα 
ήταν να χάσω το χρόνο µου. 


Μήπως υπάρχει κανένας τρόπος να 
ξανατρέξω τα «χαμένα» προγράµµατα. 


ҮГ.: Για να κάνω format χρησιμοποίησα 
το πρόγραµµα ΜΕΟΑΕΟΗΜΑΤ που είχε 
δημοσιεύσει στο τεύχος 9. 

Αν είναι δυνατόν το γράµµα µου να δη- 
µοσιευτεί το συντομότερο μαζί µε tnv mi- 
ϑανή απάντησή του γιατί η δισκέτα πε- 
ριείχε πολλά χρήσιμα για μένα προγράμ- 


Απαντήσεις Γρηγόρης Σουρµελάκης 


ната — κυρίως πληκτρολογημένα. 
Ευχαριστώ 
Περδικάρης Δημήτρης 
Πειραιάς 


Δυστυχώς δεν μπορείτε να επαναφέρεται τα 
χαμένα προγράµµατα. Αυτό συμθαίνει επειδή 
στο sector 0 ο υπολογιστής κρατάει πληροφο- 
ρίες γιατο πού θρίσκονταιτα προγράµµατα рё- 
σα στο δίσκο. 


Αναππτό ΕΠΤΑ, 

είμαι φανατικός αναγνώστης σου καὶ 
έχω γράυει άλλες δύο φορές στέλνοντάς 
σου και κάποιο πρόγραμμα. Δεν χρειάζε- 
ται να αναφερδώ πάλι στην µεγάλη ovp- 
θολή σου στον computer χώρο, που είναι 
σε όλους γνωστή. 

Αν είναι δυνατόν да ήθελα να απαντή- 
σεις στην παρακάτω απορία µου. 

Πώς μπορώ να бро τις ρουτίνες στο 
λειτουργικό που εκτελούν τις αριδµητι- 
кес πράξεις +, -,.,104, COS, SIN κτλ 
στον CPC 464 ώστε уа тіс χρησιμοποιώ 
κατευδείαν µέσα από τα assemblv προ- 
γράµµατα όπως τις κλήσεις του jump- 
lock. 

Ευχαριστώ 
Λάμπρος 
Μπρακατούλας 


ҮГ.: Στέλνω ένα προγραμματάκι то οποίο 
ενδιαφέρει τους 464 και κασσετοφωνό- 
θιους, σε assemblv. 

Το πρόγραµµα αλλάζει την ταχύτητα 
σωσίµατος του κασσετοφώνου κατά θού- 
λησπ, µεταθάλοντας та x καὶ v. Χρησιμο- 
ποιείτην CAS SET SPEED#BC68 rou λει- 
τουργικού. Ta χ και v εκφράζουν τις πα- 
ραμέτρους χρόνου καδυστέρησης των 
data που γράφονται στην ταινία. 

10 ΟΒΟ 42.000 
20 LD A, X 
30 LD HL, Y 
40 CALL # BC68 
50 RET 
Μέσω basic έχουμε δύο ταχύτητες εγ- 
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γραφής: 
1000 baud SPEED WRITE 0 (Х-25 
Ү-333) 
2000 baud SPEED WRITE 1 (х-50 
Ү-167) 

Η τιµή των παραμέτρων είναι: 
0<х<255 και 190 «Υ «480, ωστόσο 
µπορεί κανείς να δώσει τιµές εκτός ο- 
ρίων αυξάνοντας ή μειώνοντας την ταχύ- 
τητα, αλλά κανείς δεν εγγυάται ότι τα 
προγράµµατα ὃα γράφονται σωστά. Εγώ 
έχω δώσει τιµές x = 5 καὶ Y = 100 και σώ- 
νει στα 3.300 baud. Πάντως επειδή n δέ- 
ση της κεφαλής του κασσετοφώνου αλλά 
και n ποιότητα των ταινιών ποικίλει από 
υπολογιστή σε υπολογιστή, συνίσταται τα 
προγράµµατα που σώνονται µε μεγαλύτε- 
pn ταχύτητα να χρησιμοποιούνται μόνο 
στον ίδιο υπολογιστή που σώϑηκαν, γιατί 
σε κάποιον άλλο δεν εγγυάται κανείς ότι 
ϑα φορτώσουν. 


Τέλος για уа φορτώσουμετο πρόγραμ- 
μα αρκεί να үрауоорғ 
10 LOAD ”СОПГЕ.ВІМ”, 42.000 
20 CALL 42.000 
το οποίο ὃα φορτώσει τον OBJECT 
ΟΟΡΕ του προγράµµατος στην διεύδυν- 
on 42.000 και ὃα τον καλέσει. Φυσικά n 
гоп форторатос του κώδικα µπορεί να 
είναι και διαφορετική, ανάλογα µε τις a- 
νάγκες µας. Αφού γίνει το CALL 42.000, 
τότε μέσω της basic ипоробре уа φορτώ- 
соор µε load και να σώσουμε µε SAVE 
το πρόγραµµα της αρεσκείας µας µε rn 
νέα, αυτή φορά, ταχύτητα. Για να επανα- 
φέρουμε την παλιά ταχύτητα αρκεί να 
δώσουµε SPEED WRITE 0-1 


Λάμπρος Μ. 
Τηλ. 9331857 


Φίλε Λάμπρο 

> ευχαριστούμε πολύ για τα καλά σου λό- 
για. Σε προσεχές ардро да αναφέρουμε τις 
ρουτίνες του λειτουργικού που χρησιμο- 
ποιούνται για радпратікёс πράξεις. 


P I T I к H 


ΙΒΛΙΩΝ 


Για να μάθετε 
τον AMSTRAD 


DAVID LAWRENCE - MARK ENGLAND 


Το βιβλίο αυτό είναι η μετάφραση 
του αντίστοιχου αγγλικού βιβλίου 
που έγραψαν οι David Lawrence και 
Mark England. Το βιβλίο αποτελείται 
από 17 κεφάλαια που ασχολούνται µε 
την MALLARD BASIC και µε το Loco- 
Script. Στο πρώτο κεφάλαιο αναφέ- 
ρονται περιληπτικά οι εντολές της 
MALLARD BASIC, δίνοντας περισσό- 
τερη έµφαση στις εντολές που έχουν 
σχέση µε τα αρχεία. Στα υπόλοιπα 16 
κεφάλαια γίνεταιαναφοράσε όλεςτις 
δυνατότητες του LocoScript. 


Το βιβλίο είναι απλά γραμμένο και 
κατανοητό σε όλους. > αυτό βοηθάνε 
τα πολλά παραδείγματα και ot Φωτο- 
γραφίες που έχει. 

Το θέµα µε το οποίο ασχολείται το 
βιβλίο (LocoScript) είναι τόσο καλά 
διατυπωμένο, ώστε δίκαια о αγγλικός 
τύπος έγραψε ότι «το βιβλίο αυτό 
συμβάλλει αφάνταστα στη δηµιουρ- 
γία µιας νέας γενιάς χρηστών ηλε- 
κτρονικών υπολογιστών. 

Το βιβλίο αυτό είναι των εκδόσεων 
Παρατηρητής. 

Δεν εἰναιλίγεςοι Φορές που έντρο- 


του >. Σταυρόπουβου 


μοι γονείς µας παίρνουν στα γραφεία 
του περιοδικού τηλέφωνο για να µας 
ρωτησουν αν πρέπει να στείλουν τα 
μικρής ηλικίας παιδιά τους να μάθουν 
προγραμματισμό. Η προσωπική µας 
άποψη είναι πως δεν χρειάζεται. 
Πάντως, για όσους ενδιαφέρονται 
υπάρχουν δύο βιβλία που είναι μόνο 
για μικρά παιδιά. Το «Γνωρίστε то MI- 
ΚΡΟ υπολογιστή» εξηγεί µε απλά λό- 
για και µε σχέδια τι είναι υπολογι- 
στής, πού μπορούμε να τον χρησιμο- 
ποιήσουμε, πώς δουλεύει, τι είναι 


τσιπ κ.τ.λ. 

Το «Πρακτική της ΒΑΡΙΟ» αναφέ- 
ρει µε τον ίδιο τρόπο απλές εντολές 
και τεχνικές της BASIC που θα βοπή- 
σουν ένα παιδί να φτιάξει ένα μικρό 
προγραμματισμό. 


М” αυτό τον τρόπο το παιδί μπαίνει 
μόνο του στο χώρο των ηλεκτρονικών 
υπολογιστών. 


Τα βιβλία αυτά τα εκδίδει η Ele- 
ctronics ΜΑΜΟΥΘ comix, Ιπποκρά- 
τους 44, τηλ. 3644420. 


Εισαγωγή και εφαρμογές 
στο LOTUS 1-2-3 


Το βιβλό αυτό είναι η μετάφραση 
του γνωστού βιβλίου Masterign 1-2 
-3 της ΘΥΒΕΧ. Αποτελείται από 12 
κεφάλαια, µέσα από τα οποία αναλύε- 
ται το Lotus 1--2-- 3. Το βιβλίο aneu- 
θύνεται τόσο στο προχωρημένο όσο 
και τον αρχάριο χρήστη. Ξεκινάει από 
το πώς μπορούμε να κτίσουµε ένα 
Φύλλο λογισμικού, πώς να χρησιµο- 
ποιήσουµε τις συναρτήσεις, πώς να 
κάνουμε γραφικές παραστάσεις και 
καταλήγει σε πολύ προχωρημένες ÉV- 
νοιες όπως μακροεντολές, μορφοποί- 
non, εκτύπωση και διαχείριση αρχείων, 
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τεχνικές μοιράσματος δεδομένων 
κ.τ.λ. H ανάλυση των θεμάτων που ne- 
ριέχει το βιβλίο είναι πολύ καλή, έτσι 
ώστε και οι δύσκολες έννοιες να yí- 
νονται αμέσως κατανοητές. > αυτό 
βοηθάνε και τα πολλά παραδείγματα 
και οι πολλές Φωτογραφίες από το 
Lotus 123 που υπάρχουν μέσα στο βι- 
βλίο. Είναι πράγματι ένα πολύ καλό 
βιβλίο που θα πρέπει να το έχει κάθε 
κάτοχος του γνωστού πακέτου. Εκδό- 
της του βιβλίου είναι ο Μ. Γκιούρδου. 

Το βιβλίο το βρήκαμε στο τεχνικό 
βιβλιοπωλείο Παπασωτηρίου, Στουρ- 
νάρα 23, τηλ. 3641826. 


AMSTRAD 


APXIZONTAZ BASIC 


Το βιβλίο αυτό απευθύνεται σε τέ- 
λειους αρχάριους, που θέλουν να uá- 
θουν Basic. O σκοπός του βιβλίου αυ- 
τού είναι να διδάξει στον αναγνώστη 
τα βασικά της Basic του Amstrad, δη- 
λαδή τις πιο κοινές εντολές και πώς 
να τις χρησιμοποιήσει. Επίσης, ένας 
άλλος σκοπός εἰναι να επιδεικτούν 
διάφορες τεχνικές προγραμματισμού 
συμπεριλαμβανομένου και του oun- 
μένου προγραμματισμού. Για να επι- 
τευχθούν αυτοί οι σκοποί κάθε εντο- 
λή που αναπτύσσεται εξηγείται µε 
προσεκτικά βήματα και στις περισσό- 
τερες περιπτώσεις αυτό περιλαμβά- 
νει ένα πρόγραµµα επίδειξης που δεί- 
χνει στον αναγνώστη όχι µόνο τι κά- 
νει η εντολή, αλλά και πώς να χρησι- 
μοποιηθεί о” ένα πρόγραμμα. 

Τοβιβλίο χωρίζεται σε πέντε κεφά- 
λαια που περιλαμβάνουν τις βασικές 
εντολές της Basic, τις εντολές για 
Loops, τις εντολές για γραφικά κ.τ.λ. 
Ακόμα, περιλαμβάνονται τρία παιχνί- 
δια. Το πρώτο είναι ένα απλό παιχνίδι 
που μαντεύει αριθμούς, το δεύτερο εί- 
γαιένα παιχνίδι αναγραμματισμούκαι 
τοτελευταίο είναι το παιχνδι της κρε- 
μάλας µε τη χρήση των γραφικών του 
υπολογιστή. ΄Όλατα παιχνίδια αναλύ- 
ονται για να καταλάβει ο αναγνώστης 
πώς δουλεύουν. 

Το βιβλίο αυτό είναι των εκδόσεων 
MPS. Το βρήκαμε στο βιβλιοπωλείο ο 
Σπουδαστής, Στουρνάρα 33, 
τηλ. 3632558. 


AMSTRAD 2 


Το βιβλίο αυτό αναφέρεται στον 
ήχο, τα γραφικά και τις βάσεις δεδο- 
µένων. Το βιβλίο αυτό προορίζεται κυ- 
ρίως yU αυτούς που θέλουν να pá- 
θουν περισσότερα πράγματα για τον 
AMSTRAD. Για το βιβλίο αυτό υποτί- 
θεται ότι πρέπει να υπάρχει µια μικρή 
γνώση της Basic. 

Στα γραφικά εξηγούνται οι εντο- 
λές γραφικών του AMSTRAD. Στην 
παρουσίαση κάθε εντολής δίνεται και 
ένα παράδειγµα, μ᾽ ένα πρόγραµµα 
που δείχνει πώς µπορεί να χρησιµο- 
ποιήσει την εντολή. 


Атаға PCi 52 


Ἠισογωγγ 
дай Ан 1A του GEM στον 
Amstrad РС Amstrad 


ΕΞ 


Η ΧΡΗΣΗ ΤΟΥ 
ΣΤΟΝ 


ΚΕΝΤΡΙΚΗ ΔΙΑΘΕΣΗ 


ΠΛΗΡΟΦΟΡΙΚΗ 

В. ΕΛΛΑΛΟΣ 

Е. ФРАГКАКН 
ΠΟΛΥΤΕΧΝΕΙΟΥ 47 
546 25 ΘΕΣΣΑΛΟΝΙΚΗ 
ΤΗΛ. 031/540.846 


GSX – Mallard interface! 


Στο πρώτο τµήµα της παρουσίασης του 
Graphics System extension αναφερδήκαµε 
σε software interface μεταξύ της Mallard 
Basic кат тоу GSX. To ардро που διαθάζε- 
τε αυτή Tn στιγµή λύνει τα χέρια των κατόχων 
PCW, οι οποίοι και φαίνονται ιδιαίτερα δι- 
μασμένοι για γραφικά. Αξίζει, πιστεύουμε, 
σε µια γλώσσα τόσο ισχυρή όσο η Mallard, 
το δικαίωµα να «απλώνει χέρι» στο σύστημα 
για να πάρει κάτι που δεν της δόϑηκε ακό- 
μα: η ευκαιρία συνεργασίας µε το GSX. 


Για όσους διάθασαντην παρουσίαση του 
αντίστοιχου interface της TURBO Pascal µε 
το GSX, λέμε ότι η γενική φιλοσοφία είναι 
ίδια: (Επειδή δεν είναι σκόπιμο να αναφερ- 

δεί ολόκληρη п διαδικασία σύνδεσης ενός 

αρχείου COM рғ το σύστημα γραφικών ай- 
Ап µια φορά, парапёрпоор τους ενδιαφε- 
ρόμενους στο τεύχος Ιουλίου-Αυγούστου). 
Δημοσιεύουμε αυτή τη φορά ένα πρόγραμ- 
μα Basic (ASCII file), το οποίο πρέπει να 
αποτελεί τµήµα κάϑε δικού σας προγράμ- 
ματος που да χρησιμοποιεί γραφικά. Με 
άλλα λόγια, στο περιθάλλοντου interprefer, 
δα δίνετε: 


MERGE “ΜΑΙΓΑΠΡ.Ο5Χ᾽ 


катто πρόγραμμά σας да µπορεί να επικοι- 
νωνεί µε το GSX. 


Φαντάζομαι ότι да περιμένετε κάποιες 
διαφορές στον τρόπο χειρισμού του soft- 
ware interface από την BASIC, όπως και 
στην ἴδια τη δοµή του, σε σύγκριση µε το 
αντίστοιχο της PASCAL. Οι διαφορές θέ- 
Вата υπάρχουν, αλλά αυτό είναι κάτι που 
δεν πρέπει να σας ανησυχεί καδόλου. Δεν 
υπάρχουν διαφορές όσον αφορά το θαϑμό 
εκμετάλλευσης του GSX, αλλά αυτές είναι 
καδαρά «διαδικαστικές», για τρεις κυρίως 
λόγους: 

Πρώτα ап’ όλα n BASIC, σαν interpre- 
fer, δεν δουλεύει µε include files, αλλά µε 
merging δύο προγραμμάτων. Αυτό σημαίνει 
ότι, ενώ στην Pascal, το πρόγραµµα 


[$I ТОКВОСЕТ.65Х) 
BEGIN 
GRAPHICS ОМ; 


ELLIPSE (10000, 10000, 1000, 5000, 2.5): 
СЕАРНІС5. ΟΕΕ: 
END 


да σωδεί στο δίσκο, έστω κι αν έχει τρέξει, 
σαν πρόγραμμα ἐξι γραμμών, στη BASIC 
да σώνεται - by default -- μαζί µε το 
MALLARD.GSX, αφού δεν µπορεί να τρέ- 
ξει χωρίς να έχει γίνει MERGES. Το µόνο 
μειονέκτημα είναι n κάπως μικρότερη ευε- 
λιξία στη συνδεση θιθλιοδηκών προγραμ- 
μάτων που да χρησιμοποιούν γραφικά. 


Δεύτερο, n δοµή της Mallard BASIC (6- 
πως συμθαίνει και ΣΧΕΔΟΝ σε όλεςτις δια- 
λέκτους της γλώσσας αυτής) δεν επιτρέπει 
Tn χρήση υπέροχων procedures, µε αποτέ- 
λεσµα να γίνεται χρήση GOSUB πιο συχνά 
ап όσο φαντάζετε. Γενικά, n έλλειυη δοµη- 
μένου προγραμματισμού болда το πρό- 
үрарра να γίνεται λιγότερο κατανοητό. 


Τρίτο: εδώ υπάρχει ένα πολύ λεπτό ση- 
peio, που πρέπει να προσεχτεί ιδιαίτερα. Σε 
αντιστοιχία µε την εντολή BDOS της TUR- 
ΒΟ Pascal, πρέπει να υπάρχει και n κλήση 
του λειτουργικού από τη BASIC. Αν και µε 
την TURBO οι παράμετροι οδηγούνται στο 
σωστό ζεύγος καταχωρητών DE, δηλαδή s- 
κεί πουτις περιμένει το GSX, με τη Mallard 
αυτό беу συμθαίνει. Μπορούμε από тп BA- 
SIC να καλέσουμε κάποια ρουτίνα στη μνή- 
μη καὶ να χρησιμοποιήσουμε παραμέτρους 
αλλά, δυστυχώς, αν τις αφήσουμε έτσι δεν 
да πάρουν το σωστό δρόµο. Επειδή δίνου- 
µε πάντα τις διευθύνσεις 5 arravs, διαθά- 
ζουμε στο manual της Mallard ότι, αν ot na- 
ράμετροι είναι τουλάχιστον τέσσερις. τότε 
στο ζεύγος καταχωρητών BC κρατιέται n 
διεύθυνση του block όπου θρίσκονται, δια- 
δοχικά, οἱ διευδύνσεις της τρίτης, τέταρτης, 
πέμπτης κ.λπ. μεταθλητές -- παράμετροι 
που да χρησιμοποιπϑεί στη ρουτίνα. Είναι 
φανερό ότι κατά την κλήση της ρουτίνας του 
GSX, та arrays Contre, Intin, Ptsin, Intout, 
Ptsout ða αποτελούν, αντίστοιχα, το Зо, 4ο, 
Бо, бо και 7ο παραμετρικό στοιχείο. 


Συνομίζοντας: επιθυμούμε την αντίστοι- 
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Ха тпс BDOS (115, Par) στη Mallard Basic. 
όπου ro Par είναι ένα arrav που περιέχει τις 
διευθύνσεις των άλλων 5, και του οποίου n 
διεύδυνση φορτώνεται στο ζεύγος DE. Αυτό 
που χρειαζόμαστε είναι να τακτοποιηϑούν 
αυτές ot πέντε διευθύνσεις σε διαδοχικές 
δέσεις µνήµης και να κληδεί το GSX έχον- 
τάςτες ос παραμέτρους. Ακριθώς πριν κλη- 
δεί το GSX, πρέπει καὶ να φορτωδούν τα 
περιεχόμενα του ВС στον DE. Χρειαζόμα: 
στε µια περιοχή της µνήµης, n οοία да ка- 
λείται από τη BASIC και да κάνει όλες αυ- 
τέςτις δουλειές: στο CP /M Plus και μάλιστα 
στις θέσεις &0008 έως &0038 υπάρχει ĉia- 
δέσιµος χώρος yia тіс λεγόμενες user restart 
instructions. Για κάποιους λόγους μπορού- 
µε να επιλέξουμε τη διεύθυνση &0030, 
στην οποία και αποθηκεύουµε την ακόλου- 
Әп ρουτίνα (σε γλώσσα μηχανής) 


LD D.B 
LD Ες 
LD С,115 
CALL %0005 


Το προγραμματάκι αυτό µπορεί κάλλι- 
στα να τρέξει µέσα από BASIC, µε χρήση 
της РОКЕ. 


Н κλήση του GSX παίρνει τώρα тп μορ- 
φή: 


CALL Dum(Dum, Dum, Contre (1). 
Intn (1), Ptsin (1). Intout (1). Ptsout (1) 


όπου Dum είναι µια θοηθητική μεταθλητή 
μετιμή 48. Θυμίζουμε ότι στον ВС да περιέ- 
xetai αρχική διεύδυνση block μνήμης που 
да περιέχει τις αρχικές διευϑύνσεις των 
arrays που ακολουϑούν στην παρένθεση, 
δηλαδή εκείνων που µας ενδιαφέρουν. 
Από τη στιγµή που όλα όσα αναφέρδη- 
καν έχουν γίνει κατανοητά, µπορείτε να αντι- 
ληφϑείτε πολύ εύκολα το περιεχόµενο του 
προγράµµατος MALLARD.GSX. Είναι φα- 
νερή n ομοιότητά του µε το αντίστοιχο της 
ТОКВО Pascal, үг αυτό κρίνω σκόπιμο να 
αφήσω σε σας тоу εμπλουτισμό του σε εντο- 
λές του GSX. Παραδέτω ἑνα παράδειγµα 


Φίλιππας Βακαλάκπς 


т 


Prccedure СҒАЕНІС6 ОМ; 

Begin 
Соғеғігі1 
Contrl 
Согёг1г47: 
For Оу: =1 
Intin 
ҒағАғғГ11: 
Parárrr21 


› do IntintOUI 


ñddr (Contrl); 
Ad3r (Intin): 
ҒағАғгЕ? Addr (Ftsin); 
FarArri4]:=Addr (Intout); 
FarArr [5]: =Addr (Ftsout); 
Par:=Addr (FarArr); 

Bdos(11S, Far); 

Write(Chr (27).Chr (98), Chr (Zi 


End; 


Procedure GRAFHICS_OFF; 

Begin 
Repeat Until reyFressed; 
Contr1r(11: 
Contr1[2] 
Соғ%ғ1(41 
ВФо5(115,Ғағ); 


End; 


Begin 
GRAFHICS_ON; 


Writeln; 
Writeln 


Writeln(`Number of linetypes/li 
Writeln Number of fonts 
Writeln ("Number of patterns 


Writeln (C Number of predefined c 
Write(`List of GDFs supported 
For I:=16 То 25 Do If Intout[I) 
Writeln; 
Write("L 
For 
Wri 
Write There is 7); 

If Intout[I6l=0 Then Write('not 
Writeln('colour сараб1116у.79; 


Т5 Do If Intout[I]) 


Then Writet not 
ед. 


Шеіже( “пов 


са 9% 

Then writet`not 
Writeln(`be read 
Writeln C Number 
Writeln: Number 
Write(`worrstatioi 
Case Intoutt45] ОЕ © 


Writelr 


character кез 
line width 


marker h 


µετρεις μόνο εντολές: τη δηµιουργία otað- 
μού εργασίας, тп σχεδίαση του περιγράμμα- 
τος ενός ορδογωνίου και το κλείσιμο του 


σταδμού εργασίας. 
Εύχομαι να συμπληρώσετε, µε θάση γνω- 
στά πλέον στοιχεία, το πρόγραμμα αυτό και 
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Writeln(`Number of marker types/sizes 


Writeln(`Number of hatch styles 


) 
Coutput only’) 
Writeln C input only’ 
input/output”); 
Writeln’ de 
Writeln íG 


) a Chr (27) Chr (99) Chr (22) )3; 


Writeln(' --- Graphics System eXtension : Screen Driver Implementation ---”;); 


 Width/Height of device in dots! : ',Intout[1J,'/',Intout(2J); 
Writeln Width/Height of a pixel in micrometers : ',Intout[41l,'/',Intout[5l); 
Writeln C Number cf character heights : *,1пбоч# 62); 


ne widths ' y Intout[7),'/',IntoutC(81l); 
Τε Intout[?9),'/',Int3ut[10J); 
*,1п®оч# 112); 

*,1пбои# 2121); 

"` Intout[13)); 

* .Intout[14J); 

209% 


Ὁ Then Write(Intout[IJ),',”")i 


olours 


t of GDFs attribute set 379% 


0 Then Write(Intout[11l,”,”)j 


э; 


Τε Intout[401l); 
Τε Intout[411); 


ісе independent segment storage`); 
metati! 


bt 


` Ptscutr[41l); 
.РесзобГ?10; 


sout[12J); 


να то χρησιμοποιήσετε δημιουργικά. 
Καλή πληκτρολόγηση µε πολλή προσο- 


Χή. 


Αυτό το µήνα ερχόμαστε να συµπλη- 
ρώσουμε τις κλήσεις των γραφικών, 
για να περάσουµε στη συνέχεια στο 
SCREEN РАСК, то τμήμα του 
JUMPBLOCK που ασχολείται ап’ ευ- 
δείας µε τη διαχείριση της οδόνπς. 

Όσοι χρήστες ασχολούνται µε κώδικα 
μηχανής και δεν έχουν ήδη αγοράσει 
κάποιο θιθλίο, πιστεύουν πως το JUM- 
РВІ.ОСК ϑα πρέπεινατους είναι πάρα 
πολύ χρήσιμο. Δυστυχώς ένα τέτοιο 
ϑέμα δεν προσφέρεται καὶ τόσο πολύ 
για «τεμάχιση» και δημοσίευση από 
μηνιαίο περιοδικό, κάνουμε όµως ό,τι 
μπορούμε. Μια καλή ιδέα είναι να αν- 
τιγράφει κανείς τις κλήσεις σε ένα 
φυλλάδιο, για να µπορεί να έχει άµεση 
προσπέλαση σ᾽ αυτές, αντί να υάχνει 
κάϑε φορά να θρει σε ποιο τεύχος του 
Ε.Π.Τ.Α θρίσκεται το TXT GET CUR- 
SOR ή το GRA ASK CURSOR κ.λπ. 


GRA WIN WIDTH BBCF 
Με την κλήση αυτή ορίζουµε την αριστερή 
καιτην δεξιά «άκρη»του GRAPHICS WIN- 
DOW. Στην είσοδο ot HL και DE περιέχουν 
τις X συντεταγμένες των καδέτων πλευρών 
του WINDOW. Το λειτουργικό καταλαθαί- 
νει µόνο του και διαλέγει τη μικρότερη τιµή 
σαν αυτή της αριστερής πλευράς και την p£- 
γαλύτερη σαν αυτή της δεξιάς. 

Σημειώστε πως εσωτερικά γίνεται µια 
στρογγυλοποίηση των Χ συντεταγμένων του 
GRAPHICS WINDOW στον πλησιέστερο 
αριδµό που διαιρείται ακριθώς δια 8 γιατί 
το μήκοςτου СКА WIN στην πραγματικότη- 
τα μετριέται σε BYTES και όχι σε PIXELS 
(1 BYTE =8 PIXELS σε МОРЕ 2) 

Στην έξοδο οι ΑΕ, BC, ΡΕ, HL είναι πει- 
ραγμένοι. 


GRA WIN HEIGHT BBD2 
Ορισµός της Y ouvrgravuévnç από την o- 
ποία το СКА WINDOW да αρχίζει, και της 
Y συντεταγμένης στην οποία да τελειώνει. 
Στην είσοδο οι DE και HL да περιέχουν τις 
δύο Y συντεταγμένες, n μικρότερη προσ- 
διορίζει την κάτω πλευρά του GRA WIN- 
DOW. 

Στην έξοδο οι ΑΕ, BC, DE, HL πειραγ- 
μένοι. 

Σημείωση: Όπως (ϑα πρέπει να) ξέρετε 
από BASIC μπορούμενα ορίσουµετο СКА 


WINDOW δίνοντας τις 4 παραμέτρους που 
χρειάζονται μετά τις δύο παραμέτρους της 
εντολής ORIGIN. Π.χ. ORIGIN 100, 100, 
120, 140, 310, 260. Από κώδικα μηχανής, 
όμως, πρέπει να χρησιμοποιήσουμε δύο 
κλήσεις για να ορίσουμε то СКА WIN- 
DOW. 

Πιστεύω πως αυτό οφείλεται µόνο και 
μόνο γιατί ο Ζ80 δεν έχει αρκετούς REGI- 
STERS για να περάσουμε 4 παραμέτρους 
µε µια κλήση. 


GRA GET W WIDTH BBD5 
GRA GET W HEIGHT ΒΒΡ8 

Οι δύο αυτές κλήσεις κάνουν το «αντί- 
στροφο» των δύο προηγούμενων. Μαι στις 
δύο περιπτώσεις δεν υπάρχουν συνϑήκες 
εισόδου, ενώ στην έξοδο ο ΑΕ ϑα είναι «πει- 
ραγμένος» και οι HL και DE ϑα περιέχουν 
τις Χ ή Ὑ συντεταγμένες των οριζοντίων ή 
καδέτων πλευρών του GRA WINDOW. 
(Στην πρώτη κλήση о НІ. да είναι μεγαλύτε- 
ρος апо тоу DE, στην δεύτερη то αντίστρο- 
φο 


GRA CLEAR WINDOW BBDB 
Καδαρίζειτο WINDOW γραφικών (pe to 
PAPER γραφικών), πηγαίνοντας καὶ τον 
κέρσορα στη ϑέση mç ORIGIN. Συνδήκες 
εισόδου: Καμιά. 
Συνϑήκες εξόδου: ΑΕ. BC, ΡΕ, HL πει- 
ραγμένοι. 


GRA SET PEN BBDE 

Ορισµός του PEN γραφικών. Στην είσο- 
бо о À περιέχει τον αριδµό του PEN, στην 
έξοδο ο ΑΕ είναι πειραγµένος. 


GRA GET PEN BBE1 

Επιστρέφει το τρέχον PEN που χρησιμο- 
ποιούμε στα γραφικά. Δεν υπάρχουν συνδή- 
кес εισόδου, ενώ στην έξοδο о А περιέχει 
τον αριϑμό του PEN και ο F (δηλαδή τα 
FLAGS) είναι πειραγμένος. 


GRA SET PAPER BBE4 
GRA GET PAPER BBE7 

Τα ακριθώς ανάλογα µε τις δύο προη- 
γούμενες κλήσεις, αν και εδώ έχουµε να κά- 
νουµε pe то PAPER γραφικών καὶ όχι ре to 
ΡΕΝ. 


GRA ΡΙΟΤ ABSOLUTE BBEA 
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Jumpblock | 


PLOT σε κάποια απόλυτη ϑέση της одо- 
νης. Στην είσοδο οι DE και HL περιέχουν 
τις συντεταγμένες στην έξοδο οι ΑΕ, BC, 
ΡΕ, НІ. είναι πειραγμένοι. 


GRA PLOT RELATIVE BBED 

Σχετικό PLOT (PLOTR) σε ша ϑέση της 
οϑόνης σχετική oç προς τη δέση του κέρσο- 
ρα. Στην είσοδο οι HL και DE περιέχουν τα 
Y και X offsets, δηλαδή τις «αποστάσεις» 
апо тп δέση του κέρσορα. (Μιλάμε πάντα 
για τον κέρσορα γραφικών). 


GRA TEST ABSOLUTE BBF0 

TEST (του χρώματος ενός PIXEL) σε κά- 
ποια απόλυτη δέση της οδόνης. Στην eido- 
бо οι HL και DE περιέχουν τις συντεταγμέ- 
νες, στην έξοδο ο Α κρατάει τον αριθµό 
PEN тоу PIXEL, καιοιξ, ВС, ПЕ, HL είναι 
πειραγμένοι. 


СВА TEST RELATIVE BBF3 

TEST(R) σε σχετική ως προς τον κέρσο- 
ра ϑέση της οδόνπς. Στην είσοδο οι HL και 
DE περιέχουν τα offsets, και η έξοδος ακρι- 
бос όπως στην προηγούμενη κλήση. 


СВА ІЛМЕ ABSOLUTE ΒΒΕ6 

Το γνωστό µας «DRAW». Όπως συνή- 
δως, στην είσοδο οι НІ. και DE κρατάνε τις 
συντεταγμένες καὶ στην έξοδο οι ΑΕ, BC, 
ΡΕ, HL είναι όλοι πειραγμένοι. 


GRA LINE RELATIVE BBF9 

Το γνωστό µας «DRAWR». Και πάλι, 
στην είσοδο οι HL και DE κρατάνε τα of- 
fsets, ενώ στην έξοδο όλοι οι REGISTERS- 
είναι πειραγμένοι. 


GRA WR CHAR BBFC 
Τυπώνει έναν χαρακτήρα στην дёоп του 
κέρσορα γραφικών. Είσοδος, έξοδος όπως 
ακριθώς n TXT WR CHAR #BB5D. 
Σηµείωση: Είναι φυσικά πολύ πιο xpovo- 
бора ρουτίνα από αυτές που τυπώνουν ха- 
ρακτήρες στην ϑέση του TEXT CURSOR. 
Και o αυτό το σηµείο μπαίνουμε στο 
SCREEN РАСК στις κλήσεις των ρουτινών 
που απευθύνονται κατευθείαν στην οδόνη, 
κάνοντας διάφορες εργασίες «χαμπλού επι- 
πέδου». 
SCR INITIALISE BBFF 
SCR RESET BC02 


Να unv τα πολυλογούμεοι KM, TXT, СКА, 
SCR περιοχές του Jumpblock αρχίζουν ὁ- 
λες µε δυο κλήσεις, n µια ονομαζόμενη 
RESET και n άλλη INITIALIZE, που έχουν 
ελάχιστες διαφορές μεταξύ τους και δεν αξί- 
ζει να αναφερδούν. Αν κανείς ενδιαφέρεται 
µπορεί να πιάσει το MONITOR και να αρχί- 
σει τα πειράµατα. 


SCR SET OFFSET BC05 

To screen offset είναι µια ιστορία αρκετά 
πολύπλοκη ώστε να unv µπορεί να αναλυ- 
δεί από αυτή τη στήλη. Σας парапёрпо σε 
κάποιο άρδρο για τον HD6845S СКТ CO- 
NTROLLER του προ-προπγούµενου τεύ- 
χους του Е.П.Т.А. Πληροφοριακά εντελώς, 
στην είσοδο της ρουτίνας ο HL περιέχει το 
OFFSET, και στην & обо о ΑΕ και ο HL ei- 
ναι πειραγμένοι. 


Μιχάλης Μπελιθανάκπς 


SCR SET BASE BC08 
Και αυτή η ρουτίνα για va εξηγηϑεί πλή- 
ρως απαιτεί ανάλυση των δυνατοτήτων του 
CRT CONTROLLER. Χονδρικώς µπορείτε 
να ξέρετε πως αν ο À περιέχει την τιµή &40 
στην είσοδο αυτής της ρουτίνας, τότε n οδό- 
уп που да θλέπουμε μπροστά µας δεν да 
προέρχεται από την VIDEO RAM ανάµεσα 
στις διευθύνσεις &C000 ?evw &FFFF, αλ- 
λά στην «εναλλακτική VIDEO ΒΑΜ» που 
θρίσκεται στις διευδύνσεις &4000 έως 
&7FFF. Αν ο А περιέχει την τιµή &C0, τότε 
n оӘбуп επαναφέρεται στην «υμπλή VIDEO 
RAM. Δώστε: 
ΡΟΚΕ &8000, &DD: ΡΟΚΕ &8001, &7E: 
POKE & 8002,0 
POKE &8003, &C3: POKE &8004, 8: 
POKE &8005, &BC. 


O κώδικας που σχηματίστηκε σε 
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ASSEMBLY είναι: 
LD А, (ІХ +0) 
JP #BC08 

Έτσι δίνοντας CALL &8000, &40 θλέ- 
πουμε tnv o8óvn να σθήνει. Кі όµως, каша 
οδόνη δεν έσθησε, απλώς τώρα θλέπουμε 
τη χαμηλή VIDEO RAM που τυχαίνει να εί- 
ναι άδεια. Γράυτε κάτι (οτιδήποτε, απλώς 
για να γεμίσει n οδόνη) και δώστε CALL 
&8000, &C0. H εναλλαγή στην προηγού- 
pevn o8óvn (στην υυπλή VIDEO RAM) ei- 
ναι ακαριαία, катта РОКЕ που είχατε δώσει 
προηγουμένως εἰναιτώρα μπροστά σας. Èn- 
μείωση: Στην έξοδο της ρουτίνας οι ΑΕ & 
НІ. είναι πειραγμένοι. 


Αυτά үг αυτό το μήνα. Στο επόμενο τεύ- 
χος συνεχίζουμε µε τις υπόλοιπες κλήσεις 
(εκτός κι αν σκεφτούμε να σας καμιά 
εκπληζούλα...) 


P-29 


Read 
Write sector! 


H ρουτίνα 1 φορτώνει και σώνει ένα συγ- 
κεκριµένο SECTOR σε µια συγκεκριμένη 
δέση μνήμης που την καϑορίζουμε εμείς. H 
σύνταξη είναι: 

CALL 39000, 1 για φόρτωμα ñ 2 για σώσι- 
μο, qrack, sector, διεύϑυνση (κάτω από 
49152). 

Στις γραμμές 2 και 3 υπάρχει о έλεγχος 
του αν είναι 4 οι παράμετροι. 

Από τη γραµµή 4 ως και rn 10 υπάρχει 
o έλεγχος για το αν δα γίνει φόρτωμα ñ σώ- 
оро και αποδηκεύει την αντίστοιχη διεύ- 
δυνση της ρουτίνας perá to CALL στη γραμ- 
uñ 22. 

Anó rn γραµµή 11 ως και rn 15 οι κατα- 

χωρητές που χρειάζονται για να κληδεί n 
ρουτίνα για φόρτωμα ή για σώσιμο παίρ- 
νουν τις κατάλληλες τιµές. Δηλαδή: 
— O Ὁ παίρνει την τιµή του track. 
— O Α παίρνει την τιµή του sector. 
— O HL παίρνει τη διεύδυνση και 
— O E μηδενίζεται. 

Anó rn γραμμή 16 ως xai tnv 20, ενεργο- 
ποιείτη КОМ тор DISC — DRIVE και κάνει 
τα ανάλογα PUSH και POP για vo ип χα- 
δούν οι τιµές των καταχωρητών. 

Στη γραμμή 21,0 С παίρνει την τιµή του 
A, δηλαδή του sector, και στη γραμμή 22, 
καλείται n διεύθυνση της αντίστοιχης ρουτί- 
νας που έχει φορτωδεί εκεί από προηγούµε- 
νο έλεγχο. 

Και τέλος, στις τελευταίες δύο γραμμές 
επαναφέρειτις КОМ σπιν αρχική τους κατά- 
σταση και επιστρέφει στην BASIC. 

Το πρόγραµµα νο 2 (μόνο στον 6128) eí- 
ναι ένα πρόγραµµα που χρησιμοποιεί тп 
ρουτίνα 1 καὶ αυτό που κάνει είναι να αντι- 
γράφει µια πλευρά δισκέτας σε µια άλλη µε 
δύο περάσματα. Για νατρέξει χρειάζεται και 
το ΒΑΝΚΜΑΝ.ΒΙΝ στην ίδια δισκέτα που 
θρίσκεται και αυτό. 

Αν κάποιος από σας δεν δέλει το πρό- 
үрарра αλλά μόνο τη ρουτίνα, µπορεί να 
αντιγράψει από τη γραμμή 80 ос και την 
100 που θρίσκεται ο LOADER της ρουτί- 
νας. 

Το πρόγραµµα λειτουργεί ως εξής: 

Στην αρχή µας ρωτάει τι Format είναι ot 
δισκέτες. Εδώ αλλάζουμε το Format µε 
SPACE και επιθεθαιώνουµε µε RETURN. 

Στη συνέχεια, αφού θάλουµε την Input 


¡ROUTINE NUMBER: 1 
(с) 1987 by JIM STATHOPOYLOS 


Line 
ORG 39000  ;1 
СР 4 12 
ΒΕΙ NZ 5 
LD А, (126) 4 
СР 1 5 
JR М1,5У Ho) 
ОҢ, ;7 
JR PR {В 
: LD HL #CA4E ;9 
LD (RT+1),HL 110 
LD 0, (1094) {11 
LD А, (1112) {12 
LD Е,0 3 
LD Н, (1111) 314 
LD ἰ.(1{10) {15 
PUSH АҒ 116 
LD C,7 ;17 
CALL #B90F 918 
POP AF ;19 
PUSH BC 120 
LD С,А ;21 
CALL 00000 22 
POP BC :23 
ЈР 48918 124 


δισκέτα στο DISC — DRIVE και πατήσουμε 
ένα πλήκτρο, γίνεται η εξης διαδικασία: 

Φορτώνονται 32 sectors (16384 bytes) 
από τη διεύδυνση 10000 και µετά και περ- 
νιούνται στη BANK SCREEN 5 διαμέσου 
της οϑόνης (49152 — 65535), μετά άλλους 
32sectors отп BANK 5СКЕЕМ 4, µετά στην 
З και τέλος στη 2 (η 1 είναι η οϑόνη). 

Τέλος, φορτώνει 52 sectors (26624 bv- 
tes) στη διεύϑυνση 10000. 

Όταν τελειώσουν όλα αυτά (επιτέλους! ...). 
бабооне την Output δισκέτα στο DISC -- 
DRIVE και πατάμε ένα πλήκτρο. 

H παραπάνω διαδικασία επαναλαμθάζ- 
νεται σώνοντας µόνο που εδώ σώνονται 
πρώτα οι 52 sectors για να un χαϑούνε και 
ὕστερα μεταφέρονται οἱ οδόνες από тп 
BANK στη διεύθυνση 10000 πάλι μέσω της 
οδόνης και σώνονται. 

Μετά από όλα αυτά, п διαδικασία φόρτω- 
μα-σώσιμο επαναλαμθάνεται ακόµη ша 
φορά για το υπόλοιπο шоб της δισκέτας. 

Η ρουτίνα νο 3 ελέγχει ποιο κουμπί. από 


Ε.Π.Τ.Α. 
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jRDUTINE NUMBER: 3 


}(с) 1987 Бу JIM STATHDPOYLOS 


ORG 400060 ;} 
LD H (0+1) ; 
LD 1,010) } 
PUSH HL 4 
POP IX ; 
LD H (IOD ; 
ТЕНТЕК 
LD Α, (1110) | 
TRON TER 
LD В,А 10 
LP: PUSH BE 31i 
шаһ 2 
με 
CALL #BBIE 4 
ЈЕ М,РА μ15 
шн, ив 
DEC HL ;17 
POP BC ;18 
ΜΙΝΙ LOOP —;19 
LD A,0 ;20 
LD (39100),А ;21 
RET ;22 
PR: Ш Αι) 1 
ΙΝΕ Α 124 
POP BC {25 
SUB В 25 
LD (39100) Α 127 
RET ;28 


éva σύνολο κουμπιών που δίνουμε εμείς, 
πατιέται. H σύνταξη είναι: 
CALL 40000. (αφ όπου η a$ ορίζεται ως 
εξής: 

Ας πούμε ότι θέλουμε να ελέγξουμε αν 
πατιέται Ν ή Ο. Τότε λέμε: 

a$ = CHR$(46) + ΟΗΒΦ(34) όπου 46 ei- 
ναι ο κωδικός ΙΝΚΕΥ του N και 34 ο κωδι- 
кос του О. Όταν καλέσουµε τη ρουτίνα τότε 
στη διεύϑυνση 39100 да υπάρχει: 
— 0 αν δεν πατήϑηκε τίποτα. 
— 1 av πατήϑηκε N και 
— 2 αν πατήδηκε О. 

Ας πούμε τώρα λίγα λόγια via ro πρό- 
үранна 

An rn γραμμή 2 ως Koi rn 10 φορτώνεται 
στον HL η διεύθυνση της a$ και στον B το 
μήκος της a$ και το κρατάμε στη διεύθυνση 


O. 


10 'PROBRAN NUMBER: 2 

203 

50 '(c) 1987 by JIM STA 1HOPOYLOS 

y’ 

50 MODE 2:BORDER 1:1МК O,1:INK 1,24 

80 MEMORY 9999:AD=39000:RESTORE:LOAD"BANKMAN" , 40000: CAL 
L 40000 


70” ---------- START ---------- 

80 FOR N=1 TO 2:READ A$:FOR Ni=1 TO LEN(A$) STEP 2:Р0КЕ 
AD, VAL("&"+MIDS (A$, N1,2)):AD=AD+1: NEXT nl,n 

90 DATA FEO4CODD7E06FE0120052166C61803214EC622859800540 
4DD7E 

100 DATA 02100005880 1008Е00Ғ50Е07000ҒВ9Ғ1054ҒС04ЕС801035 
188000 


120 FOR n=39200 TO 39211:READ a$:POKE п, ΝΑΙ ("43 46) : МЕХ 
T 


130 DATA 21,10, 27,11,00,С0,01,00,80,Е0, 80, [9 
140 FOR n=39300 TO 39311:READ а$:РОКЕ n,VAL("&"+a$):NEX 
1 


150 DATA 2100, 00, 119 10, 27,01,00, 40, Ε, Β0, 03 

160 {15011250 

170 MODE 2:PRINT"DISCS аге DATA format":x=11:y=1:608U 
B 3530:51=5:551=5+9:52=5:552=5+9 

180 FOR times=1 TO 2 

190 MODE 2:PRINT"Insert Input DISC into the DISC-DRIVE 
and press any key" 

200 CALL &BB1B:FOR п=2 ТО 5:ad=10000:FOR ni=1 Т0 32:CAL 
L 39000,1,t1,51,ad:ad=ad+512:51=51+1:IF 512551 THEN біз 

ssl-9:t1=t1+1 

210 МЕХТ: САЦ. 39200: :ЗСКЕЕМСОРҮ, п, 1: М№ЕХТ 

220 ad=10000:FOR п1=1 TO 52: САШ. 39000,1, +1,61,ай: аб=аб 
+512:51=51+1:1Е 51=551 THEN sl=ss1-9:t1=t1+1 

230 МЕХТ 

240 MODE 2:PRINT"Insert Output DISC into the DISC-DRIVE 
and press any key' 

250 CALL &BB18:tt=t2:55=52:t2=t2+14:52=52+2:ad=10000:F0 
R nl=1 ТО 52:CALL 29000,2,12,52,а0:а0=а0+512:52=52+1:1Ё 
s2=ss2 THEN 523552-9: 12512141 

260 NEXT:t2=tt:52=55:F0R n=2 TO 5: ΙΒΕΛΕΕΝΓΟΡΥ, 1,n:CALL 


Του Δημήτρη Σταδόπουλου 


39300: ай-10000:Ғ08 п1=1 TO 32:CALL 39000, 2, 12, 52, ай: ай= 
а0%512:52252%1:ІҒ 52-552 THEN s2=ss2-9;t2=t2+1 

270 NEXT ni, n:t2=t2+6:52=552-9:NEXT times 

280 CLS:PRINT"Copy completed. ":PRINT"Another (y/n)?" 
290 i$=UPPER$(INKEY$) 

300 IF i$="Y" THEN 160 

310 IF i$="N" THEN END 

320 6070 290 

350 a$(1)=" DATA "';a$(2)="SYSTEM":az1 

340 i$=UPPER$(INKEY$) 

350 ІР 145" " THEN LOCATE x,y:aza+i:PRINT a$(a):IF а=2 
THEN а=0 

360 IF i$=CHR$(13) THEN s=(2*(a+1))14k40-t3F:RETURN 

370 БОТО 340 


10 'PROBRAM NUMBER: 4 
20° 


30 '(c) 1987 by JIM STATHOPOYLOS 
407 
50 ’--------------------- KEY CHECK ------------------- 


80 ВЕБТОКЕ: а=100:р=200:РОКЕ p,0:b$=HEX$(p,4):b$=RISHT$( 
b$,2)+LEFT$(b$,2) 

70 FOR пі=1 ТО 2:READ a$:IF nl=2 THEN MID$(a$,29,4)=b$: 
MIDS (48, 49, 4) 554 

80 FOR п2=1 TD LEN(a$) STEP 2:РОКЕ а, VAL("&"+MID$(a$,n2 
,2)):а=а+1: МЕХТ n2,n1 

90 DATA 006001006Е00Е500Е1002602006Е01007Е003200004752 
201007ЕС0 

100 DATA 1EBB200D2A010023C110EF3E0032####C93A00093CC190 
52Η Η9 


120 ЕМУ 1,15,-1,15:ЕМТ 1,0,0,0:1n=225:v1=15 'NOTA 

150 oc=1int=0:a$="d'ca[ZXROSPKJHCAB; 9:8102-, 14,41" 

140 FOR ni=1 TO LEN(a$):MIDS(a$,n1,1)=CHR$(ASC(MID$ (a$, 
ni, 1)})-32): NEXT 

150 DEF FNnt=ROUND(125000/144082^(oc+((ni-10)/12)))) 
160 IF pl=n1 OR pl=0 THEN п1=р1:Б0Т0 180 

170 IF ρ1625 THEN ni=pl:SOUND 129,FNnt,1n,vl,1,1 ELSE o 
c=pl-28 

180 CALL a-56,a$:pl=PEEK(p):60T0 160 


πατήδηκε. 


Από τη γραμμή 11 ως και τη 19 εκτελεί- 
ται o θρόγχος που ελέγχει ποιο κουμπί είναι 
πατημένο καλώντας τη ρουτίνα ΙΝΚΕΥ του 
Jumpblock #BB1E. Αν κάποιο έχει πατηδεί 
τότε πηγαίνει στη γραμμή 23 αλλιώς στην 
20. 


Από τη γραμμή 20 ως την 22 φορτώνει 


στη διεύϑυνση 39100 το Ο και Επιστρέφει 
στη BASIC. 


Από τη γραμμή 23 ως το τέλος φορτώνει 
στη διεύϑυνση 39100 το πού θρίσκεται рё- 
σα στην αὖ το κουμπί (1 για ro πρώτο, 2 για 


το δεύτερο...) кат επιστρέφει στη BASIC. 

Το πρόγραµµα 4 είναι παράδειγµα χρή- 
σης της ρουτίνας 3 και μεταθάλλει τον υπο- 
λογιστή σε πιάνο µετα πλήκτρα απότο ΤΑΒ 
ὡς το RETURN για τις κανονικές νότες και 
την αποπάνω σειρά για τις διέσεις. Ακόμα 
μετα Ε1 — Ε8 αλλάζει п октава που παίζετε 
εκείνη τη στιγµή. Αρχικά θρισκόµαστε στην 
οκτάθα 5. 

Από τη γραμμή 60 ως και την 100 υπάρ- 
χει о LOADER της ρουτίνας. Στην 60 γραμ- 
uñ ro a σημαίνει πού да φορτωϑεί n ρουτίνα 
και το p πού да αποϑηκευτεί το τι πλήκτρο 


79 


Στη γραμμή 120 καδορίζεται n κυµατο- 
µορφή της νότας. Іп = διάρκεια νότας και 
v] = ένταση νότας. 

Στη γραµή 130 п a$ είναι κωδικοποιημέ- 
vn για να µην πιάνει πολύ χώρο και αποκω- 
δικοποιείται στη γραμμή 140. 


Στη γραµµή 150 ορίζεται µια Function 
που δίνει τον τόνο της νότας και 
Στις τελευταίες γραμμές γίνονται οἱ κυ- 


ρίως έλεγχοι για то πρόγραµµα και καλείται 
n ρουτίνα. 


CPC 


PROGRAMS 


LASER MESSAGE 


Ένα πρόγραµµαπου σίγουρα θα 
σας εντυπωσιάσει. Του δίνετε ένα 


10 ΗΕ ΜΗ ΕΕ 
203 
9% LASER MESSAGE 1 


i 
юч ' lok 
507% FRIXOS М, KOKKONIS 1} L 


120 


өз 1 Ў 
Юлиан É 
8” 


90 MODE 2:PRINT CHR$(23)+CHR$(1) 
100 SYMBOL AFTER 255:SYMBOL 255) δῦ, 60; 255, 2559, 255, 219,1 
26 
110 FOR ΕΞ2 TO 15:1МК F,F:NEIT 
120 ІМК 0,0:РАРЕҢ 0:РЕМ 1:BORDER 0: ІМК 1,26,0:SPEED ІМК 
2,1 
130 INPUT'Messaqe: ", a$:MODE 0 
140 6:20 хх-0:РЕМ 15:10САТЕ 10, 25:РАІМТ CHR$ (255) 
150 IF LEN1a$)(13 THEN xx=324(15-LEN(a$))/2 
160 ’ 
170 a$=UPPER$(a$):FOR 1-1 ТО LEN(a$):i=INT(RND814)+2 
180 RESTORE:1$=NID$(a$,1,1):IF 1$=" " THEN х1=х1+56:607 
0 270 ELSE БОТО 800 
[00 130 READ а,б: а=хх+а+12:=5+6:Р.0Т abi 
200 х=0:у=0: 60808 290: 60508 300: 60508 290 
210 READ х:1Р х=-1 THEN 6070 190 
220 IF х=-2 THEN 270 ELSE READ у 
230 5DSUB 290: КАНА -х,-у,і 
240 5OSUB 300:60508 290 
[8ο 350 FOR 6=1 TO 200:МЕХТ: а=а+к:Б=б+у: ІЕ аухі THEN хі=а 
[29 200 БОТО 210 
190.110 хх=хі:ІР χχ)580 THEN 5=5-80:хх=0:х1=0:1Р «(16 THEN 
[9ο 570 
Qo 2 280 МЕТ 1:6070 570 
μι ο 290 PLOT 300, 16,1: КАН а+х,б+у, 1: КЕТИЯМ 
212300 РОВ 6=1 ТО 25: МЕХТ: КЕТИЯМ 
9.40510 DATA 8,0,-2,0,56,52,0,0,-04,-1,0,52,20,0,-2 
240 520 DATA В,0,0,0,54,24,0,0,-30,-1,0,32,32,0,0,-32,-32,0 
-2 
) 


μήνυμα και στη συνέχεια το εμφανί- 
ζει µε μεγαλύτερα γράμματα στην 


οθόνη µε τη βοήθεια ενός 
Laser (0. 


76» 330 DATA С,32,12,0,-12,-32,0,0,54,32,0,0,-12,-2 
{ь 340 DATA 0,0,0,0,64,32,-16,0,-48,-32,0,-2 
739 350 DATA Е,0,0,0,32,16,0,-1,0,32,0,32,32,0,-1,8,2,24,0, 
-2 
1830 360 DATA Ғ,0,0,0,52,10,0,-1,0,22,0,52,52,0,-2 
140570 DATA 6,22,16,10,0,0,-16,-32,0,0,64,28,0,0,-14,-2 
200580 DATA Н,0, -2,0,64,-1,32,64,0,-64,-1,8,32,20,0,-2 
312 390 DATA 1,0,0,16,0,-1,8,0,0,64,-4,0,-2 
222400 DATA 1,4, 16,0,-16,50,0,0,56,-1,20,64,24,0,0,-8,-2 
239410 DATA К,10,0,0,32,30,0,0,-32,8,0,-1,10,52,0,32,-1,28 
,32,0,32,-2 
240870 DATA 1,0,64,0,-64,32,0,0,12,-2 
{69 450 DATA М,0,0,0,64,32,0,0,-64,-1,16,02,0,-32,-2 
260 М0 DATA №,0,0,0,64,22,0,0,-64,10,0,0,04,-2 
270450 DATA 0,0,0,32,0,0,64,-32,0,0,-64,-2 
23 о 460 DATA Р,0,0,0,04,22,0,0,-28,-28,0,-2 
+56470 DATA 0,0,0,32,0,0,04,-32,0,0,-64,-1,20,18,0,-12,6,0 
-2 
1 
400480 DATA В,0,-2,0,06,26,0,0,-26,-32,0,-1,24,28,0,-28,8, 
0,-2 
се 490 DATA 5,0,12,0,-12,32,0,0,32,-32,0,0,32,32,0,0,-12,- 
2 
422 500 DATA Т,16,0,0,64,-16,0,-1,16,52,0,12,16,0,0,-12,-2 
42o 510 DATA 0,0,04,0,-04,30,0,0,04,-2 
440520 DATA У,0,54,0,-2,16,-52,15,52,0, 2,-2 
4$ ο 530 DATA М,0,64,0,-64,16,0,0,32,-1,16,0,16,0,0,64,-2 
дьо 540. АТА Х,0,-2,0,24,32,20,0,22,-1,0,66,0,-24,-1,32,-2, 
0,24,-2 
ц [0550 DATA Ү,18,0,0,22,-18,10,0,16,-1,32,46,0,18,-2 
Ago 560 DATA 1,0, 48,0,16,36,0,-36,-64,36,0,0,16,-2 
2449570 LOCATE 10,25:PRINT" ";CLEAR INPUT:BORDER 26, 01 1ΝΚ 0 
‚25,0 
602880 FOR {52 TD 15:1NK +, INT(RND426):IF ІМКЕҮФ у" " THEN 
RUN 
212 590 NEXT:6OTO 570 
¿Qo ὁ00 FOR kl=1 TO 403:READ с$:1Е c$=1$ THEN 190 ELSE NEXT 
«30610 БОТО 270 


ΠΕΡΙΣΤΡΟΦΗ 


Αυτή είναι µια ρουτίνα που περι- 
στρέφει ένα χαρακτήρα κατά 360 
μοίρες στον άξονα των X. Για να γί- 


νει αυτό βάζουμε στη μεταβλητή F 
τον ASCII του χαρακτήρα στη µετα- 
βλητή X και ψ τη στήλη και τη Ypap- 


μή αντίστοιχα. Επίσης, στη µετα: 
βλητή ΚΑ το χρόνο καθυστέρησης. 
H ρουτίνα αρχίζει από γραμμή 50. 


80 


90 a(g)=p:pin(g)=p:NEXT;:RETURN 

100 FOR д=1 το 5 

110 a(g+1)=a(g) ΠΒ pin(g+1): a(g)=0: 
120 а(8-0) =а (9-9) DR ріп(8- 9) :а (9-0) =0 
150 GDSUB 160: МЕХТ: КЕТИКМ 
140 FOR іс4 TD 1 STEP -lsat 

іа (9-1) =рім (і) 

150 50508 160: МЕХТ: RETURN 
160 SYMBOL +#,а(1),а(2), .8(5),а(4),а(5) 


ОННАН ЕНЕНЕ ЕЕЕ ННН 

“яна РКОБКАМ RHH 

ΗΗΗ͂ BY JIMMY MISOYRA {88 

4 фы ο "n: 

10 MODE 1:SYMBOL AFTER 32:DIM а(8),ріп (8) 

12 W$= μα. МІЅОҮКАЗ": ΕΞ 20 

20 FOR W=1 TO LEN(W$):F=A0SC( (MID$ (W$ W, 15) 
i X=10+W: Y=10: GDSUB 50:МЕХТ 

40 END 


5а Το 


)=pin(9-i) 


50 РОК n=1 TO 2:0№ n GOSUB 70, 100. 140, 


70, 100. 140 
60 NEXT:RETURN 
70 FOR g=1 TD B 
80 p=PEEK((f-Z2)XB+HIMEM+q) 


Ένα χρήσιμο προγραμματάκι 
που μπορείτε να ζωγραφίζετε σχέ- 
δια και να τα βλέπετε ταυτόχρονα 
10 КЕМ ΜΙ Сие" 

Шу. М, 
Б ή. ( 4 16 


40 
50 


2 DEG! MOVE 675 
‚ркан 460, 
92-р: МОМЕ 96,2 


хау; 
1% kl. a 
INF E Υ (Q) πες 


22. μαι 


ΣΕ ТОКАМ 


Το πρόγραµµα αυτό είναι πιστό 
αντίγραφο του POKER που κυκλο- 
φορεί στα τυχερά ηλεκτρονικά παι- 
χνίδια. Ο παίκτης δεν παίζει µε αντί- 
παλο, αλλά μόνο µε την τύχη του, 
προσπαθώντας να μαζέψει όσο το 
δυνατόν περισσότερα «Λεφτά» στην 
κάσα του, επιστρατεύοντας τη γνώ- 
ση του, αλλάπιο πολύ την τύχη του. 
Το πρόγραμμα είναι γραμμένο στην 
BASIC. 

H κάσα σας, αρχίζει µε 1000 δε- 
κάρικα. Ο υπολογιστής διαλέγει τυ- 


Fla Ко 


"k: ше MODE 
пери 1 
195% DRAW 6 
99% DRAW 
195) DRAW 400, 


БЫ ча“ зе ΠΝ 


а (ó) ,а(7) a (B) 


170 ΕΠΕ kau= 1 TÜ ka:NEXT:LOCATE х,у 
:РКІМТ CHR$ (4) 


180 RETURN 


MIRROR 


στο κάτω μέρος της οθόνης, σαν Ka- 
θρέφτης. Η κίνηση της πέννας γίνε- 
ται µε τα πληκτρα του δρομέα. Για 


POIS CAROD MOLY 


1424 ; DRAW о, 19-5 


να ανάψουµε To pixel που βρίσκεται 
n πέννα, πατάμε το space και yta va 
το σβήσουμε, то Сору. 


рға DRAW 96,190 


200, 2991 MOVE 96,19шОКАЫ 9 


799; МОМЕ 0,0,1 


POKER 


χαία από την τράπουλα πέντε φύλ- 
λα και σας τα εμφανίζει κρυμμένα 
στην οθόνη. Καλείστε λοιπόν να 
ποντάρετε ένα ποσό της αρεσκείας 
σας, που το μέγεθός του εξαρτάται 
από τις βλέψεις σας για το φύλλο 
που πηγάζει από τη διαίσθησή σας 
(δηλαδή την τύχη σας). 

Αφού ποντάρετε, αυξομειώνον- 
τας το ποσό µε τα πλήκτρα και µετά 
πατάτε ENTER και ο υπολογιστής 
σας δείχνει τα κρυμμένα φύλλα. 

Τώρα έχετε τη δυνατότητα, ανά- 


ΕΚΕ 


81 


reld Canel) 
19-8 (ужу) /599) 195 


қорым (ae д) / l. СУЛЫ м 


өзе 


λογα µε το φύλλο σας, να αλλάξετε 
όσα από τα πέντε φύλλα θέλετε. Α- 
φού επιλέξετε τα φύλλα που θέλετε 
να αλλάξετε πατώντας τον αντίστοι- 
Χο αριθµό που τους αναλογεί, πατά- 
τε ENTER καιο υπολογιστής σας 
δείχνει το τελικό χαρτί σας και, εάν 
έχετε κερδίσει. Εάν έχετε κερδίσει, 
μπορείτε να παίξετε τα κέρδη σας 
ΜΟΝΑ, ZYTA, πατώντας ENTER. ʻE- 
χοντας τη δυνατότητα να τα διπλα- 
σιάσετε, αλλά και να τα χάσετε. 
"Ана δεν θέλετε να τα παίξετε µονά- 


ζυγά, πατάτε οποιοδήποτε άλλο 
πλήκτρο. Μετά από αυτό, προστί- 
θενται στην κάσα τα κέρδη σας, εάν 
φυσικά υπάρχουν. 

Οι συνδυασμοί που κερδίζουν si- 
ναι: 


ROYAL FLUSH: 


Kuka kikiki Lid 

{88 PROGRAM 448 

*### ΒΥ JIMMY ΜΙΘΟΥΒΑ 4848 

AEA HEHE AR HE HE EE AE PE HERE HE Li HE H H HEIE HEHE 
0 DEFINT а-> 

20 DIM pin(14),dp(14),A$(52),t(52),a1$(13) 
30 GOSUB 510:GOSUB 320:GOSUB 430:GOSUB 1410 
40 FOR R=0 ΤΟ 4:GOSUB 220:NEXT: 

50 GOSUB 710:ЕОВ R=0 ΤΟ 4:GOSUB 260:ΝΕΧΤ 
80 GOSUB 470:FDR г=0 ТО 4:50508 270:МЕХТ 
70 p$="";icvl=0:cv2=0:cv3=0;:cv4=0:cv5=0 


= αν αἱ ο κ. 


74 PRINT Ж6,ТАВ(12); "kai pata (ΕΝΤΕΒ)" 
80 WHILE а%‹ >СНАФ (17) 

90 IF a$="1" 
100 IF a$="2" AND cv2=0 THEN р%=р%+"1":су2: 
110 IF a$="3" AND cv3=0 THEN р%=р%+ "2": суз 
120 IF а 4" AND су4-0 THEN p$=p$+"3 vå= 
130 ΙΕ a$="5" AND cv5=0 THEN p$=p$+"4";cv5=1: 
140 a$=INKEY$: WEND: а$="" 

150 IF LEN(p$)<>0 THEN GOSUB 480 

160 GOSUB 990:GOSUB 780:GOSUB 430 

170 IF poso=0 THEN GOTO 1320 


190 a$=INKEY$: IF A$<>CHR$(32) THEN 190 

200 CLS #6 

210 IF a$=" " THEN END ELSE GOTO 40 
220 PAPER #r+1,3:CLS#r+1 

230 FOR a=3 ΤΟ 5:FOR al=4 TO 6 

240 LOCATE #r+1,a,al:PRINT#r+1,CHR$ (206) 
250 NEXT:NEXT:RETURN 

260 PAPER #R+1,1:CLS #R+1:RETURN 

270 PEN#R+1,4 

280 LOCATE #R+1,2,2:PRINT #R+1,a$(filo(r)) 
290 LOCATE #WR+1,6,B:PRINT #R+1,a$(filo(r)) 
500 LOCATE #R+1,4,5:PRINT #R+1,CHR%$(t(filo(r))) 
310 PEN 1:RETURN 

320 D=0 

330 FOR f=1 το 52 

340 D=D+1:IF D=14 THEN D=1:RESTORE 390 

350 READ s$:a$(f)=5$:NEXT 


370 READ t(a):NEXT 

380 RESTORE 390:FOR аз! TO 13:READ а1%(а):МЕХТ 
390 DATA "1 ","2 ","3 ","4 6 5 8,96 7" 
400 DATA "В ","9 ","10","J ", "0", "К" 

410 DATA 227,228,223,250 

420 RETURN 


72 CLS #6:PRINT #6:PRINT #6, ТАВ (4) ; "ере:1езе kartes poy ues na divjeis" 


AND су1=0 THEN р%=р%+ "0": су1=1:7=0: Б050В 220 
1150508 220 
GOSUR 220 
OSUB 220 


:60SUB 220 


180 CLS #0:РКІМТ #6:PRINT 46, ΤΑΒ(Φ); "РАТА SPACE gIA KAINOYrgIEs KArTEs" 


360 D=0:FOR А=1 ΤΟ 52:D=D+1:IF 055 THEN D=1:RESTORE 410 


10, J, О, K, 1 ue το ίδιο χρώμα 
STR FLUSH: 

Οποιαδήποτε σειρά µε το ίδιο χρώμα 
4 ΟΕ Α ΚΙΝΟ: 

4 ἴδια φύλλα 

FULL HOUSE: 

Μια τριάδα και µια δυάδα 

FLUSH: 


Όλα τα φύλλα µε το ίδιο χρώμα. 
STRAIGHT: 

Οποιαδήποτε σειρά ανεξάρτητου 
χρώματος 

3 ΟΕ ΚΙΝΡ: 

Μια τριάδα 

2 ΡΑΙΗ: 

2 Ζεύγη 


820 CLS #4 


840 IF i$<>CHR$(13) THEN 
850 LOCATE 5,10:PRINT " 


860 I$=INKEY$:IF 19231" 
870 LOCATE 1,10:PRINT SPAI 
" ELSE LOCATE 410:РКІМТ 


ілім: ";CLOCATE 


5070 940 

17,10:РКІМТ "ОК": ОСАТЕ 30,10:PRINT" :х2х 
AND 182242" 
СЕФ (40) 


THEN 860 


0 FOR A=1 70 30 


440 Q1=INT(RND#52)+1:02=INT (АМ0ж52) +1:1Е 01-02 THEN GOTO 440 


2" THEN LT=LT+LT:LOCATE 22,7:РКІМТ LT:CLS #6:60T0 800 
1" THEN LT=LT+LT:LOCATE 32,7:PRINT LT:CLS #6:GOTO 800 


450 F$=A$ (01) :1A$ (01) =A$ (02) :A$ (02) =F$ 

460 f=t(q1):t(q1)=t (q2): t (q2) =f :NEXT:RETURN 
470 FOR А=0 ΤΟ 4:FILO(A)=a+1:NEXT:RETURN 

480 FOR gh=1 ΤΟ LEN(p$) 

490 r=VAL (MIDS (p$, għ, 1)) 180908 260 

500 filo(r)=5+gh:GOSUB 270:NEXT:RETURN 

510 PAPER О:РЕМ 1:INK 3,10:BORDER 1:MODE 1:CLS 


890 

900 

910 LOCATE 21,7:РКІМТ " 0 κ 
920 

950 #6:PRINT Β6:ΡΒΙΝΤ 


940 p0s0=p0s0+1T:LOCATE 2 
950 LOCATE 51,7:РКІМТ "0 
960 PRINT 46, ТАВ (12) ; "рат 
970 LOCATE 1,10:РКІМТ SPAI 


#6, ТАВ (17) ; "ЕХАвЕзѕ" 
1,S:PRINT р060: 

А ΕΝΑ plHKTrO":CALL ВВІВ 
СЕ$ (40) 


520 WINDOW#1, 2,8, 14,22 972 LOCATE 1,РЕ:РАІМТ Е$ (РЕ) 
550 WINDOW#2, 10, 14, 14,22 380 RETURN 
540 WINDOW#3, 18, 24, 14,22 990 Р-0 ка 
550 WINDOW#4, 26,32, 14,22 1000 FOR 150 TO 4:FOR 1151 TO 15 
500 WINDOW#5, 54. 40. 14.22 1010 IF a$(filo(i))=al$(ii) THEN dp(i)=ii 
570 WINDOW#6, 1,40, 23, 2. 1020 МЕХТ:МЕХТ 
580 E$(1)="ROYAL FLUSH 500" 1030 FOR i=0 ТО 3 
590 e$(2)="STR FLUSH 100" 1040 IF dp(i)>dp(i+1) THEN pro=dp(i):dp(i)=dp(i+1):dp(i+1)=pro:non=1 
600 e$(3)="4 OF Α KIND 40" 1050 МЕХТ 
610 e$(4)="FULL HOUSE 10" 1060 IF non=1 THEN поп-0:6070 1020 
820 e$(5)="FLUSH 7" 1070 xr=1:FOR i=1 ΤΟ 4 
650 e$(6)="STRAIGHT 5" 1080 IF t(filo(0))=t(filo(i)) THEN xr=xr+1 
640 e$(7)="3 OF Α KIND 3" 1090 NEXT 
650 e$(8)="2 PAIR 2" 1100 IF XR=5 THEN 1240 
652 FOR 151 TO 8:LOCATE 1,I:PRINT E$(I):NEXT 1110 FOR i=dp(0) ТО dp(4):pin(i)=0:FOR ii=0 TO 4: 
660 LOCATE 31,5:PRINT " 1000":LOCATE 31,7:PRINT " ο" 1120 IF i=dp(ii) THEN pin(i)=pin(i)+1 
870 p0s0=1000 1130 NEXT:NEXT 
680 FOR 1-4 TO 40 STEP 8 1140 dia=0:tetr=0:tria=0 
690 X=X+1:LOCATE I,13:PRINT X:NEXT 1150 FOR i=dp(0) TO dp(4): 
700 RETURN 1160 IF pin(i)=2 THEN dia=dia+1 
710 ропёа=0 1170 IF ріп(1) =5 THEN tria=1 
720 PRINT #:РКІМТ #6,ТАВ (9) ; "РАТА "+CHR$(240)+" % "+CHR$(241)+" gIA pONTArIsMA" 1180 IF pin(i)=4 ΤΗΕΝ tetr=1 

1190 NEXT: 
750 PRINT #6, TAB(13); "МЕТА (ENTER)" 1200 IF dia=2 THEN p=2:PE=8:GOTO 1510 
740 i$=INKEY$:IF i$<>CHR$(240) AND i$<>CHR$(241) AND i$<>CHR$(13) THEN 740 1210 IF tetr=1 THEN p ΡΕΞΣ:6ΟΤΟ 1310 
750 IF i$=CHR$(240) AND роѕо>0 THEN poso=poso-1:ponta=ponta+1 1220 IF tria=1 AND dia=0 THEN p=3:PE=7:60TO 1310 
752 IF I$=CHR$(241) AND ропёа>0 THEN ponta=ponta-1:POS0=P0S0+1 1250 IF dia=1 AND tria=1 THEN p=10:PE=4:GOTO 1310 
760 LOCATE 31,5:PRINT poso:LOCATE 31,7:PRINT ponta 1240 st=0:FOR i=2 70 4 
770 IF i$C>CHR$(12) OR ponta=0 THEN GOTO 740 1250 IF dp(i)<>dp(i-1)+1 THEN st=1 
775 RETURN 1260 NEXT 
780 IF p=0 THEN LOCATE 31,7:PRINT "0 “RETURN 1270 IF st=0 AND dp(0)=1 AND dp(4)=13 AND xr=5 THEN р=500:РЕ=1:50Т0 1310 
782 LOCATE 1,PE:PRINT "X"+E$(PE)+"X" 1280 IF st=0 AND (dp(0)=dp(1)-1 OR (dp(0)=1 AND dp(4)=13)) AND xr=5 THEN р=100: 
790 ΙΤΞΡΟΝΤΑΣΧΡ РЕ-2:6070 1310 
800 PRINT #0: РКІМТ #6,TAB(17);"KErdIsEs":LOCATE 21,7:РВІМТ LT 1290 IF ѕё=0 AND (др(0)-др(1)-1 ОК (dp(0)=1 AND dp(4)=13)) AND xr<>5 THEN ΡΞΡΙΡΕ 
810 PRINT Ж6.ТАВ(7);"рАТА (ENTER) gIA МОМА ZYgA" Ξ6:50Τ0 1510 
820 i$=INKEY$:IF 1%-"" THEN 820 1500 IF хғ-5 AND st=1 THEN р=7:РЕ=5 

1310 RETURN 

= 


20 FOR а=0 TO 20 :SOUND 1,аЖа,4,15:МЕХТ 

LOCATE 1, 10:ΡΒΙΝΤ " ean ues па ja параі 1845 раға (ENTER) " 
0 1ΦΞΙΝΚΕΥΦΕΙΕ i$="" THEN 1240 

O IF i$=CHR$(13) THEN RUN ELSE CLS:END 

RESTORE 1400:ҒОК і-0 TD 4 

0 filo(i)=i+1 

READ а%(1%1),%8(141):МЕХТ 

1290 GOSUB 990 

1400 DATA "2 ",2,"2 


) SYMBOL 110, 198,250,246,222,206, 198, 198,0 
SYMBOL 111,56, 108, 198, 198, 198, 108.56.0 
SYMBOL 116, 126,30,248,24, 24,24, 60, 0 

0 SYMBOL 120,198, 108,56,56, 108, 138, 158, 
50 SYMBOL 121,102, 102, 102, 60,24,24, 60,0 

560 SYMBOL 122.254, 198, 140, 24,50, 102, 254,0 

0 SYMBOL 105, 126, 36. 96,96, 96, 36, 36, 0 

0 SYMBOL 100,24, 60, 102, 102, 102, 102, 126,0 

0 108,2 19 102,1 

1410 SYMBOL AFTER 32 eee a 

1420 SYMBOL 143,0,0,0,0,0, 0,0,255 1610 SYMBOL 112 128 102.102. 102, 102 
1420 SYMBOL 64, 124, 198,222,222, 222, 192,124,0 1420 SYMBOL 115.126 96,48 > 

1440 SYMBOL 97,24,02,102,102,126.102,102,0 150 SYMBOL 1028 62 

1450 SYMBOL 98,252, 102, 102, 124, 102, 102, 252, 0 5 SYMBOL 95 

1460 SYMBOL 101,254,98,104,120,104,98,254,0 σος 

1470 SYMBOL 104, 102, 102, 102, 126, 102, 102, 102,0 

1480 SYMBOL 105,126,24,24,24,24,24,126,0 

1490 SYMBOL 107,270,102,108,120,108,102,250,0 

1500 SYMBOL 109, 198, 238, 254,254,214, 198,198,0 


"дуа ",1,"2 ",1,°3 ",1 


2,8,8,8,0 

‚ 198, 198, 108,238 

,120,9ь,96,240,0 
1 198, 254, 198, 198, 124,0 

1680 SYMBOL 270, 00,50,219,255,255,219,24,24 

1590 RETURN 


ТҮХАІА ТОПІА! 


Тоо N. Χαλκού 


Ένα προγραμματάκι που κάνει αρκετά ωραία, τυχαία τοπία µε δέντρα, βουνά, συννεφάκια και άλλα ωραία праүрата... 


rr. ч 


sa". λος 
4%, =". s. 


10 REM TREE Бу N.Xalkos 

20 DEFINT a-z:DEFREAL r,w 

30 RANDOMIZE TIME:DEG:DEF FNrn(r)=CINT(RNDIr) 

10 NODE 1:BORDER 111ΝΚ 0,0:1МК 1,11:1МК 2,18:INK 3,26 
50” 

b0 PAPER 1:05: РАРЕК 0 

70 FOR clouds=1 Т0 S+FNrn(2) 

8) cloudx=30+FNrn(580):cloudy=330+FNrn(108clouds) 
90 FOR fluffybit=1 TÜ 4+FNrn(2) 

100 ex=cloudx-50+FNrn(100) :ey=cloudy-30+FNrn (00) 
110 егі=60+ЕМгп (81clouds);iratio=0.1+RND10.2 

120 6DSUB 350: МЕХТ:МЕХТ 

130’ 


51. 
Нери, 


dt ЛЕП Т 
«ον асы ШШШ BULUTI 


А . 


140 LOCATE 1,9:PRINT STRINB$(200,127); 
150 РЕМ 2:PRINT STRIN5$(240,206);STRIN5$(240,206);:PEN 


1 
160 FOR dy=0 TÜ 12:y=182-dytdy 
170 FOR х=0 TO 858 STEP 2:PLOT x,y+#FNrn(8),1+FNrn(2) 


180 МЕХТ x,dy 
190 FOR hills=1 TO 3+FNrn(1) 


200 hy=290-hills#35;ht=(6-hills)t11;m1lh1=(0,15+RND)/3:1 
ift=ht+FNrn(ht/10):clip=FNrn(ht/6);offst=FNrn(200) 

210 col (0)=2:col (1)=FNrn(1) 

220 5OSUB 420 :NEXT 

2%: 


HERE 
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240 FOR size=40 Т0 160 STEP 15:RANDOMIIE TIME 

250 treey=200-size:treex=20+FNrn(600):treewid=CINT(size 
14) 

269 ТЕ TEST(treex,treey+30)(>2 THEN 250 

270 angle=FNrn(6)-44:depth=B+FNrn((size-40)/40) 

280 DIM аск (дерїһ, 3) 

290 вбаск(0,0)-0: =+аск (0,1) =0: 5Ёаск (0, 2) =апд1е/2: 5Ёаск( 
0,3) =беріћ+1 

300 ORIGIN treex,treey:sp=0:i=1 

310 BDSUB 470:08161М 0,0:ERASE stack:NEXT 

320 REM 

330 PRINT CHR$(7);:WHILE ΙΝΚΕΥ (47) < 50: НЕМІ: КОК 

340 ’ 

350 ORIGIN ех, еу: егедтег 12ег! 

360 FOR х=0 TO егі STEP 2 

370 y=28ratiotoDR(ersq-xix) 

380 МОМЕ -x,-y/2:DRANR 0,y,3:PLOTR 0,0,1:1Ғ RND<0,25 ΤΗ 
EN PLOTR 0,-у 

390 MOVE x,-y/2:DRANR 0,y,3:PLOTR 0,-у,1 

400 NEXT:ORIGIN 0,0 

410 RETURN 

420 ) 

430 FOR x=0 TO 638 STEP 2 

440 hh=NAX(lift+httSINloftst+(x$wlhl)) clip) 


450 IF hh>4 THEN MOVE x hy:DRAWR O,FNrn(4):DRAWR O,hh,c 
01(2):252 XOR 1:PLOTR 0,0,2 

460 NEXT: RETURN 

470 ° 

480 f=stackisp,3)-1:IF {50 THEN sp=sp-i:IF ѕр=-1 THEN R 
ETURN ELSE 480 

490 x=stacklsp,0):yzstacklsp,1);:asstack(sp,2) 

500 df=depth-f;s=size1(0,7*0f);bwids2+treewid/(22dt) 
510 a(0)=a-(angle/2)+FNrn(4)-2:a(1)=a+(angle/2)+FNrn(4) 
-2 

320 +х=х-5%51М(а(0)):+уту+5%005(а(0)) 

830 xd=ztx-xiydzty-y 

540 ix=bwidłC0S(a(0)):IF іх=0 THEN іх=1 

550 xs=SBN(ix):iyzbwidiSIN(a(0)) 

560 FOR xx=x+ix TÜ х STEP -хо:уугүніуі(хх-х) /іх:МОМЕ хх 
,ҮУ КАНЕ xd,yd,0:NEXT:DRAN x,y, 3+(f<FNrn(3)+deptht0. 35 
) 

870 6050В 800:605/8 800 

580 5р>5р+1:50Т0 480 

590: 

800 ігі XOR 1 

610 stack(sp+i,0)=tx+i$ix/2:stack(sp+i,1)=ty+ițiy/2 

820 stack(sp+i,2)=ali)istack(sp+i,3)=f 

850 RETURN 


Ν 


ΜΟΝΟ 23.000 δρχ. 


(περιλαμθάνεται ο Φ.Π.Α.) 


ΠΛΕΟΝΕΚΤΗΜΑΤΑ 


— Χαμηλό κόστος, υψηλή αξιοπιστία 
— Εύκολη χρήση και τοποθέτηση 


— 300 bps full duplex CCITT V. 21 
— 300 bps full duplex BELL 103 
— 600 bps half duplex CCITT V. 23 


bps. 
— Διακόπτης επιλογής τύπου λειτουργίας. 
— Διακόπτης ελέγχου. 


— AUTO ANSWER (OPTIONAL) 
-- Επαγγελματική κατασκευή 
-- Χαμηλή κατανάλωση ρεύματος 


ΤΩΡΑ МОРЕМ ΠΡΟΔΙΑΓΡΑΦΩΝ 
ΑΠΟ ТО ЕПТА 


— Λειτουργία σε κοινό τηλεφωνικό δίκτυο ή µισθωµενη γραμμή 


— 1200/75 dps full duplex CCITT V. 23 µε αυτόματη μετατροπή ταχύτητας 75/1200 


— 6 ενδεικτικές δίοδοι (LEDS) για τον έλεγχο λειτουργίας του MODEM 


стан 


Πληροφορίες-Παραγγελίες: ΕΚΔΟΣΕΙΣ ΑΝΑΔΡΑΣΗ Μπόταση 9, 10682 
τηλ: 36.100.349 (Για πληροφορίες & DATA) 


Εγκεκριµένο από τον Οργανισμό Τηλεπικοινωνιών της Ελλάδας | 


Τμήμα: ΤΕΙ ЕХ-БАТА. Αριθµός έγκρισης: 0512EL87001160 
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Πρόγραμμα σχεδίασης 
τυχαίων λαβύρινθων 


Πράγματι. Το πρόγραµµα είναι 
πολύ απλό στη χρήση του. Τρέχει 
από το ΟΡΙΜ. Ζητάει απλά πλάτος 
και ύψος του λαβύρινθου και µετά 
τον σχεδιάζει στην οθόνη. 

Αν δώσετε πλάτος παρακάτω 
από 80, τότε η απεικόνιση στην οθό- 
νη беу θα είναι σωστή. Όμως, είναι 
στον printer στις 96 ή 196 στήλες. 
(Δώστε CTRL+P πριν τρέξετε το 
πρόγραμμα]. О λαβύρινθος είναι tu- 
χαίος, διαφορετικός κάθε φορά και 
έχει σίγουρα είσοδο και έξοδο. 

Το παρακάτω listing παράγει το 
МА2Е7.СОМ που τρέχει από το СР/ 
М 2.2.1 το CPM +. 


10 ' FILE МАЈЕ, С0М 

20 ° EXAMPLE: Α)ΜΑΙΕ7 

30 OPENOUT "МАТЕ7, СОМ" 

40 READ a$:IF a$="STOP" THEN CLOSEOUT: 

END ELSE READ c$: с=0 

50 FOR із) TO LEN(a$) STEP 2 

БО bEVAL("&"+MIDS(a$,i,2)):PRINTE?,CHR$ (b) 11 
с=с+р:МЕХТ | 

70 IF VAL("&"+c$)<>c THEN PRINT"DATA ERROR!": 
CLOSEOUT:S ТОР 


BO 5070 40. 

% 

100 DATA 31150B11A40A0E09CD050011900A0E09, 0288 
110 DATA CD05003F00323804323C042140040180,02D9 
120 DATA 0A3600237DB9C221017CB8C22101CD77, 0509 
130 DATA 0111800A0E09CD0500CDBE01CDD1017B, 0528 
140 DATA B7CA4A01CD3FO2C33C01CDABO2DASCO1 , 0668 
150 DATA CDD50211CD0A0E09CD05000E01CD0500, 0456 
160 DATA F50E0911900ACDOS00F ΙΕΕΣΟΓΑΟΒΟΙΕΕ, 0645 
170 DATA 79СА0801С3000011870А009С00500С0, 049A 
180 DATA EAO3OEOBCDO500B7CA7F01CDABO3F511, 0657 
190 DATA 90040Е09200500Ғ1ҒЕ2927701323604,0559 
200 DATA 11C20A0E09CDO500CDABO3F511900A0E, 04ЕС 
210 DATA 09CDO500F1FE2902A001323D04C93A3E, 061A 
220 DATA O45FCDD403323F044F0600CD11043601, 03ЕА 
230 DATA C916007BFEQOCAE70105CD1104047E0F ,057F 
240 DATA DAE7017AF601573A3D043DB8C2F9013A, 06F0 
250 DATA 380487С40302С3070204С01104057Е0Е,0409 
240 DATA DA070270F6025779FF00CA1B020DCD11,05F5 
270 DATA O40C7EOFDA1BO27AF604573A3E043DB9, 0401 
280 DATA CA31020CCD11040D7EOFDA31027AF608, 050A 
290 DATA 571E007AB71FD23A021CB7C23502C93E, 0546 
300 DATA 01323C04CDD4035F7A1C1D0FD25302CA, 0529 
310 DATA 65021D0FD25B02CAbE021DOFD29B02CA, 0551 
320 DATA 9202C39B0205CD11047EF60577C9CD11,0672 
330 DATA 047EF00477303D043DBBCA800204CD11,0597 
30 DATA 047EF60177C93E01323B0406003A3F04, 03ЕГ 


ΛΑΒΥΡΙΝΘΟΣ 


350 DATA 4FC90DCD11047EF60377C9CD11047EF6,0714 
360 DATA 02770CCD11047EF60177C90C3A3E04B9 , 055D 
370 DATA CABCO2CD11047E0FD2AB02C90E00043A, 0588 
380 DATA 3D04B8C2B30204003A3C04B7C83E0032, 04DF 
390 DATA 3C04C3B30211900A0E09CD050011900A, 03F7 
400 DATA 0E09CD050011940A0E09CD050004000E, 0295 
410 DATA 00383F04B9CA0503C511980A0E09CD05,0469 
420 DATA 0061030Ғ03051194080Е09200500010,04С0 
430 DATA 3А3Е0489С2Е102С51190040Е09С00500,0543 
440 DATA 118008009200500010Е00С01 1047ЕЕ5, 0489 
450 DATA 02284103051190080Е09200500010348,0544 
40 DATA 03С51140040Е09С00500С10С3А3Е0489, 046E 
470 DATA С22803С51190080Е09С0050011940А0Е, 0406 
480 DATA 09С00500С10Е00С011047ЕЕЬО4СА7005, 053E 
490 DATA С511940А0Е09С00500С1С38703С51198,0509 
500 DATA 0А0Е09С00500С10С343Е04В9С2570304,0425 
510 DATA 3A3D04B8C2170311900A0E09CD050011, 0384 
520 DATA 80040Е09С00500С9С50600С50Е01С005,04А0 
530 DATA ООСІРЕООСАЮ 1 ОЗРЕЗООААВОЗРЕЗАР2АВ, 0805 
540 DATA 034Ғ79Е80Ғ4Ғ78874787878081470548,0719 
850 DATA 0578010905С0ЕА034080010С8Е70381,0728 
580 DATA 02080304С3080378С1С9Е5С521370406,0763 
570 DATA 087Е0707078Е17172137047Е1777237Е,0380 
580 DATA 17772537Е1777257Е177705С2Р203С1Е1,064А 
590 DATA 0905Ғ5343Е045Ғ 180021000078250809,04Ғ1 
800 DATA 05082004291702200419032004015919,0459 
b10 DATA 11400419F1D1C9FFFFFFFF0500C1C34B,08C9 
820 DATA 03051180080Е09000500010С5А3Е0489,048Е 
830 DATA C22B03C511900A0E09CD050011940A0E, 0406 
b40 DATA 09С00500С10Е00С011047ЕЕЬ04СА7003, 053E 
850 DATA C511940A0E09CD0500C1C38703C51198, 0509 
850 DATA OA0E09CD0500C10C3A3E04B9C2670304,0425 
870 DATA 3А300488С2170511900А0Е09С0050011,0384 
880 DATA 80000Е0920050029250800250Е010005,0480 
890 DATA ООСІРЕООСАР Т ОЗРЕЗООААВОЗҒЕЗАР2АВ, 0805 
700 DATA 034Р79Е60Р4Р7887478787808147С3АВ, 0719 
710 DATA 05780109С5СЕ8054Ғ080010С8Е70581,0728 
720 DATA 02080304С30В0378С1С9Е5С521370406,0763 
730 DATA 087Е0707078Е17172137047Е1777237Е,0380 
7% DATA 1777237Е1777257Е177705С2Е203С1Е1,0644 
750 DATA С905Р53А3Е045Е 10021000078С5009, 041 
760 DATA 05082004291702200419052004015919,0489 
770 DATA 11400419F1D1C9FFFFFFFF0500C1C34B,08C9 
780 DATA 03651180040Е0900050001005А3Е0489,045Е 
790 DATA C22B03C511900A0E09CD050011940A0E, 0406 
800 DATA 09С00500С10Е00С011047ЕЕ04СА7003, 053E 
810 DATA С51194040Е09С00500С1С387053С51198,0509 
820 DATA 080Е09205000102343Е048902870304,0425 
830 DATA 3А3004В8С217031190040Е09С0050011,0384 
840 DATA 80040Е09200500С905080050Е010005,044) 
850 DATA O0C1FE0DCAD103FESODAABO3FE3AD20B,08DS 
880 DATA 034F79E00F4F7887478787808147C30B 0719 
870 DATA 0378C1C9C5CDEA034F06001DCAE70381,072B 
880 DATA D2DB0304C3DB0378C1C9E5C521370406,0763 
890 DATA 087Ε070707βΕΙΤ172157047Ε1777257Ε, 0580 
900 DATA 1777237Е1777257Е177705С2Е203С1Е1,064А 
910 DATA С905Ғ53А3Е045Ғ180021000078250809,04Ғ1 
920 DATA 05СА2004291702200419С32004С15919,0469 
930 DATA 11400419F1D1C9FFFFFFFF0500C1C34B,08C9 
940 DATA 03C511800A0E09CD0500C10C3A3E04B9,046E 
950 DATA C22B03C511900A0E09CD050011940A0E, 0406 
90 DATA 09CD0500C10E00CD11047EE604CA7D03,053E 
970 DATA С51194040Е09С00500С1С38703С51198,0509 
980 DATA 0А0Е09С00500С10С3А3Е0489С2670304, 0425 
990 DATA 5А5004880217051190080Е0922050011,0384 
1000 DATA В00А0Е09С00500С9С50600С50Е01С005,0440 
1010 DATA 00С1ҒЕ0ОСА)103ҒЕ300ААВ03ҒЕЗА0248, 0805 


| 
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Του Γιώργου Αποστολόπουλου 


1020 DATA 034F79Eb0F4F7887478787808147C3AB, 0719 
1030 DATA 0378C1C9CSCDEA034F06001DCAE70381,072B 
1040 DATA D2DB0304C3DB0378C1C9E5C521370406, 0763 
1050 DATA 087Е0707078Е17172137047Е1777237Е,0380 
1060 DATA 1777237£1777237E177705C2F203C1E1, 064A 
1070 DATA C9D5F53A3E045F160021000078C50609,04F1 
1080 DATA 05082004291702200419032004015919,0409 
1090 DATA 11400419F1D1C9FFFFFFFF0500C1C34B,08C9 
1100 DATA 03С511400А0Е09С00500С10С3АЗЕ0489, 046E 
1110 DATA 022803051190080092005001194080Е, 0406 
1120 DATA 09С00500С10Е00С011047ЕЕ604СА7005, 053E 
1130 DATA C511940A0E09CD0500C1C38703C51198, 0509 
1140 DATA 0A0E09CD0500C10C3A3E04B9C2670304,0425 
1150 DATA 3А300488С217031190040Е09С0050011,0384 
1160 DATA 80080E09CD0500C9C50600C50E01CD05,048D 
1170 DATA 00C1FEODCAD103FE3ODAABO3FESAD2AB,08DS 
1180 DATA 034F79E60F4F7887478787808147C3AB, 0719 
1190 DATA 03782109250ЕА054Ғ080010С4Е70381,0728 
1200 DATA 02080304С3080376С1С9Е5С521370406,0763 
1210 DATA 087Е0707078Е17172137047Е1777237Е,0380 
1220 DATA 1777237Е1777237Е1777052Ғ2050161,064А 
1230 DATA (905Ғ5383Е045Ғ150021000078050809,04Ғ1 
1240 DATA 05СА2004291702200419С32004С15919,0469 
1250 DATA 11400419F1D1C9FFFFFFFF0500C1C34B,08C9 
1260 DATA 03C511A00A0E09CD0500C10C3A3E04B9,046E 
1270 DATA C22B03C511900A0E09CD050011940A0E, 0406 
1280 DATA 09CD0500C10E00CD11047EE604CA7D03, 053E 
1290 DATA C511940A0E09CD0500C1C38703C51198, 0509 
1300 DATA OAOEO9CDOS00C10C3A3E04B9C2670304, 0425 
1310 DATA 3A3D0488C2170311900A0E09CD050011, 0284 
1320 DATA 80080Е0920050009250800050Е010005,044) 
1330 DATA 00C1FEODCAD103FE30DAABO3FE3AD2AB,08D5 
1340 DATA 034F79E60F4F7887478787808147C3AB, 0719 
1350 DATA 0378C1C9C5CDEA034F06001DCAE70381 , 0728 
1360 DATA D20B0304C3DB0378C1C9E5C521370406, 0763 
1370 DATA 087E070707AE17172137047E1777237E, 0380 
1380 DATA 1777237Е1777237Е1777052Ғ2050161,0048 
1390 DATA C9DSF53A3E045F160021000078C50609,04F1 
1400 DATA 05CA2D042917D2200419C32004C15919, 0469 
1410 DATA 11400419FiDICOFFFFFFFFOS00C1C34B, 08C9 
1420 DATA 03051100080Е092205000100385Е0489,045Е 
1430 DATA C22B03C511900A0E09CD050011940A0E, 0406 
1440 DATA 09CD0500C10E00CD11047EEb04CA7D03, 053E 
1450 DATA 051194080Е0900050001058705051198,0509 
1480 DATA 080Е0900050001005А5Е048902870304,0425 
1470 DATA 3А300488С2170311900А0Е09С0050011,0384 
1480 DATA 800А0Е09С00500С9С5000С50Е01С005,04А0 
1490 DATA ООСІРЕООСАОІОЗРЕЗОРААВОЗРЕЗАР2АВ, 0895 
1500 DATA 034Ғ79Е%0Ғ4Ғ788747878780814703А8,0719 
1510 DATA 05780109С50Е8054Ғ08001008Е70381,0728 
1520 DATA 020В0304С30В0378С1С9Е5С521370406,0763 
1530 DATA 087Е0707078Е17172157047Е1777237Е,0580 
1540 DATA 1777237Е1777237Е17770522Ғ205011,0548 
1550 DATA 0905Р53453Е045Ғ180021000078050809,04Ғ1 
1580 DATA 05082004291702200419032004015919,0489 
1570 DATA 11400419F1D1C9FFFFFFFF0500C1C34B,08C9 
1580 DATA 03051180080Е09220500010С543Е0489,046Е 
1590 DATA С22803С511900А0Е09С0050011940А0Е, 0406 
100 DATA 09CD0500C10E00CD11047EE004CA7D03,053E 
1610 DATA C51194080E09CD0500C1C38703C51198,05D9 
1520 DATA ODOAOCFFFFFFFFFFFFFFFFFFFFFFFF24,0C3B 
1630 DATA 0008ҒҒ24202058242020542420202024,0314 
1640 DATA 20207024383058302040415845205052,05ВҒ 
1850 DATA 4Ғ475241402024484Ғ57205749444535Ғ,0450 
1550 DATA 2024484F5720484947483F2024414741,03BE 
1670 DATA 494E3F20240000000000000000000000,0118 
1680 DATA STOP 


Όπως λέει κι ο γείτονας του GAME 
SERVICE µε τον οποίο συχνά µοιρά- 
ζουμε τις σελίδες, γιορτές σημαίνουν 
παιχνίδι. Για уа σας διευκολύνουμε 
λοιπόν, εκτός anó TIPS δημοσιεύουμε 
και έναν χάρτη των δύο πρώτων επι- 
πέδων του Ο.ο.Μ.που έστειλε — ποιος 
άλλος — ο ικανός βοηθός µου Σωκρά- 
της. Σωκράτη, σε ευχαριστώ για τον 
χάρτη και το γράμμα σου. 


ΧΑΡΤΗΣ 


Γιανα συμπληρωθεί ο χάρτης, εδώ 
είναι µερικά TIPS για το C.o.M. που 
βγήκαν πάλι µε τη βοήθεια του Σω- 
κράτη: 

20 µέρος: ΄Όταν σας περικυκλώ- 
σουν οιλύκοι στοδάσος, ανεβείτεστο 
δέντρο για να σωθείτε. Προσέξτε ό- 
нос, όταν το κλαδί αρχίσει να σπάει 
πηδήξτε στο άλλο κλαδί και κλωτσή- 
στε τη σφηκοφωλιά για να διώξετε 
τους λύκους. Αν δεν το κάνετε αυτό, 
αλλά απλώς κατεβείτε από το δέντρο 
και φύγετε, δεν θα μπορέσετε να πε- 
ράσετε στο τρίτο μέρος. 

Зо μέρος: Στο ανάποδο βουνό, фо- 
ρέστε τις μπότες, φάτε τα μπισκότα 
και πιείτε то νερό. Φροντίστε να έχετε 
φάει το αρκουδίσιο κρέας που σας δί- 
νει ο HRUN πριν το τέλος του δεύτε- 
ρου μέρους, γιατί στο τρίτο δεν µπο- 
ρείτε. Τώρα, δυναμωμένοι, μπορείτε 
να κατεβείτε τη σκάλα και να uovouq- 
χήσετε µε τον ШО. Μην ανησυχείτε 
που σας νικάει, η σωτηρία βρίσκεται 
στο δρόµο — ή μάλλον στον αέρα (το 


5 να. 
Жылама 


=з > 


М - 


Η ΓΩΝΙΑ ΤΟΥ 


ΜΕΓΑΛΟΥ 


ΕΞΕΡΕΥΝΗΤΗ 


LAND OF 
ADVENTURE 


*Buv HORSES g, 
GET HORSES 


ПАРТЕ TA ANOTA KAI 
ΕΠΙΣΤΡΕΨΤΕ 


IBROKEN {ΠΠ 


DRM ΓΈ]. 


μπητ | τ 


by -PASSALIDIS- 


KRATES- рр. 


|a o COLOUR OF MAGIC | 
| 


+ DE ΧΡΕΙΗΖΕΤΗΙ NA NATE 


чаво | ovensa] 


СЕМЕ 2 parT 1 


% KILL TROLL WITH 


SWORD. `x 


HILL F #TROLL 


το PART 2 
(FOREST) 


κλειδί είναι οι μπότες). 

O Σωκράτης όµως δεν ήταν ο μό- 
νος που µε θυμήθηκε στις γιορτές. Έ- 
νας άλλος καλός Φίλος (ονόματα δεν 
λέμε), µε επισκέφθηκε µε το ωραίο 
του ιπτάμενο έλκυθρο και µου άφησε 
και µερικά TIPS για να σας δώσω. A- 
φού µε έβαλε уа тои υποσχεθώ ότι θα 
περάσω κάποια απ᾿ αυτές τις µέρες 
ап” το χιονισµένοτου καταφύγιο, QÓ- 
ναξε στους ιπτάµενους ταράνδους 
που έσερναν το έλκυθρο και ξεκίνησε. 
Να όµως τι µου άφησε: 
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TIPS του ΜΑΝΩΛΗ 
Αυτά ап’ τον M.E. και καλή χρονιά. 


Βοηθοί του Μ.Ε. 


Πασαλίδης Σωκράτης 

A. Κεραμοπούλου 13, Κοζάνη, 
T.K. 50 100 

MESSAGE FROM ANDROMEDA 


Νίκος και Λάμπρος Ποταμιάνος 
Χατζηκώστα 11, Αμπελόκηποι, 
Τ.Κ. 115 24 


H | мер от COLOUR OF басс 
ΤΕ ΓΗ GAHE Z PART 2 
R μυ > $ TEMPLE OF BEL SHRMHRROTH 


реа 


FROM PART 1: 
š, { 


ы] 


| CENTER 


4 | 
| ' | 
—— as | | 
(σε BEL | оғ ` 


| TENPLE | 
Шш) |51 


| I 
ее. TALK ΤΟ DEATH ΤΟ SAVE HRUN 
g 
J ROCK Ей 


FOREST ШЕ 
ICLERRING 
| | 00 МНН 
EPBETE! 


*BERR 


FOREST 


by -PRSSRLIDIS- рог | 
-ΦΟΜΑΗΤΕΣ- FRFR | 


FOREST AT THE WORLDS END, ΜΕ5- MINDSHADOW, FOREST AT THE καν στη Φυλακή υπάρχει µία λύση αρ: 
SAGE FROM ANDROMEDA, WISH- WORLDS END κεί να έχουν µαζί τους το WRENCH 
BRINGER, ESPIONAGE ISLAND, MIN- Απόστολος Χρήστου και to LASERSWORD. 
DSHADOW Βουτσινά 77 — 79, Χολαργός ή µέσω Αρχικά: BEND BARS WITH WRENCH, 
tou M.E. ACTIVATE SWORD, 
Μέμος Πάτρας ΤΕΒΒΟΒΜΟΙΙΝΟΘ LIMB OUT, 
Τηλ. µόνο για απογεύματα 9511893 Δημήτρης Τσουρουγιάννης KILL POIKER WITH SWORD και 
MINDSHADOW, MESSAGE FROM A- | Βασ. Παύλου 93, Πειραιάς, Τ.Κ. 18533 | Ενώ απολαμβάνετε το θέαμα 
NDROMEDA, WISHBRINGER Τηλ. µόνο για Σάββατο 4115464 ОЕАСТІУАТЕ SWORD 
ΗΟΒΒΙΤ, RED HAWK Στη συνέχεια PUSH WELLOW PUTTON 
Απόστολος Σιώτος PUSH BLUE BUTTON 
Ποσειδώνος 46, Καλαμάκι. Τηλ. µόνο ΒΕΒΕΙ ΡΙΑΝΕΤ και ENTER PASSAGE 
για Σαββατοκύριακα 9810765 Για та πολύ κακά παιδιά που μπή- Ένα UP και είστε ελεύθεροι!!! 


[Е.П.Т.А./ 
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СОМВАТ SCHOOL 


ΨΗΛΑ ΤΟ ΣΑΓΟΝΙ! ΕΞΩ O ΘΩΡΑ- 
ΚΑΣ. 


Έχεις µπει στον κατάλογο των ε- 
κλεκτών του ναυτικού — στους καλύ- 


τερους της Αμερικής. Για να γίνεις έ- 
νας εκλεκτός πράκτορας πρέπει ν᾽ av- 
τιµετωπίσεις µια σειρά από σκληρά, 
εξαντλητικά γεγονότα που απαιτούν 
Φυσική ικανότητα. Σκοπός σου είναι 
νααποφοιτήσεις, αλλά το θάρρος σου 
θα ελεγχθεί πολλές φορές κατά τη 
διάρκεια της σκληρής εκπαίδευσης. 

Μπορεί να µην τελειώσουν όµως 
αλλά εκεί αν αποφοιτήσεις, υπάρχει 
πιθανότητα να σταλείς σε µια σηµαν- 
τική αποστολή — о’ αυτή θα εξετά- 
σουν τις φυσικές ικανότητες αναλυτι- 
κά! 

Φιλοδοξία σου είναι να αποφοιτή- 
σεις, αλλά θα επιζήσεις καν; 

Υπάρχουν επτά εξουθενωτικές α- 
σκήσεις που απαιτούν όλες τις ικανό- 
τητες που μπορείς να έχεις. Για να γί- 
νεις η καλύτερη πολεμική μηχανή και 
να αποφοιτήσεις από τη Σχολή Πολέ- 
µου πρέπει να βεβαιωθείς ότι όλες οι 
ασκήσεις ολοκληρώθηκαν µέσα στο 
συγκεκριµένο χρόνο. 


Οι επτά ασκήσεις είναι: Μάθηµα ε- 
πίθεσης, σκοποβολή μέρος πρώτο, а- 
γώνας για άνθρωπο από σίδερο, σκο- 
ποβολή μέρος δεύτερο, πάλη µε τα 
χέρια, σκοποβολή μέρος τρίτο, μάχη 
не το σύμβουλο και έλξεις. 

Αν τελικά αποφοιτήσεις, θα στα- 
θείς σε µια μυστική αποστολή να σώ- 
σεις ένα όμηρο στην Αμερικανική Mpe- 
σβεία. Αυτή η αποστολή θα απαιτήσει 
να επιστρατεύσεις όλες τις ικανότη- 
τες που απέκτησες στην εκπαίδευση. 
Н πραγματική εκτέλεση της αποστο- 
λής είναι απόρρητη και µόνο μερικές 
λεπτομέρειες είναι γνωστές. Αυτό 
που είναι γνωστό µόνο είναι ότι οι αν- 
τίπαλοί σου θα είναι βαριά οπλισμένοι 
και θα πρέπει να αποφευχθούν και уа 
νικηθούν πριν προλάβουν να χρησι- 
μοποιήσουν τα όπλα τους. 

Καλή τύχη και µην είσαι φοβιτσιά- 
ρης! 


ΓΡΑΦΙΚΑ: 77% 

ΗΧΟΣ: 63% 

ΠΛΟΚΗ: 80% 
ΔΙΑΡΚΕΙΑ: 83% 

ΟΛΙΚΗ ΕΚΤΙΜΗΣΗ: 79% 


Κατασκευαστής: ΟΟΕΑΝ 
Αντιπρόσωπος: OCEAN HELLAS 


MATCH DAY II 


To MATCH DAY II είναι ένα δείγµα 
ποδοσφαίρου που περιλαμβάνει βο- 
λές διαφορετικής δύναμης, ψηλοκρε- 
µαστά σουτ, τακουνάκια, στρωτά σουτ, 
κεφαλιές, τερματοφύλακες που εµπο- 
δίζουν µε μαρκαρίσµατα ή βουτιές, 
διάφορες τακτικές και το σύστημα 
ένα-δύο. Μπορείς να αγωνιστείς ε- 
νάντια σ᾽ ένα φίλο σου ή την ομάδα 
του κομπιούτερ, ή διαφορετικά εσύ 
και ο φίλος σου µπορείτε να ενωθείτε 
ενάντια στον κομπιούτερ. 

Το MATCH DAY ΙΙ έχει επίσης αγώ- 
νες πρωταθλήματος, κυπέλλου, ορι- 
σµένα πλήκτρα yta va χρησιµοποιείο 
παίκτης και πολλά άλλα. 

Πριν αρχίσεις να παίζεις, καλό eí- 
vat va χρησιμοποιήσεις то «2 PLAYER 
MATC DAY» үа vo εξοικειωθείς µε то 
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να δίνεις και να παίρνεις την μπάλα 
και να ελέγξεις τα διάφορα κόρνερ, 
τις σέντρες, τα γκολ και τις βολές α- 
πέξω. Πρέπει να μάθεις να χρησιμο- 
ποιείς τα συρτά, ιδιαίτερα, μπορείς να 
περάσεις γρήγορα στην επίθεση χρη- 
σιμοποιώντας та сорта και πορεία (ік 
-ζακ στο γήπεδο. 


Τα κόλπα µέσα στο παιχνίδι και τα 
ΜΕΝΙ πριν από αυτό που σου δίνουν 
τη δυνατότητα να καθορίσεις την τα- 
κτική που θα παίξει η ομάδα, τους naí- 
κτες, να αλλάξεις τα ονόματα των O- 
μάδων, να αλλάξεις τα χρώματα των 
ομάδων και να επιλέξεις αν ο αγώνας 
θα είναι κυπέλλου ή πρωταθλήματος, 
δίνουν µια ωραία εικόνα στο παιχνίδι. 

Τα γραφικά είναι αρκετά καλά και 
ο ήχος που ακούγεται από τις κερκί- 
δες είναι αρκετά καλός. 

Το µόνο μειονέκτημα του παιχνι- 
διού είναι η πολύ αργή κίνηση. 


ΓΡΑΦΙΚΑ: 70% 

ΗΧΟΣ: 75% 

ΠΛΟΚΗ: 83% 
ΔΙΑΡΚΕΙΑ: 60% 

ΟΛΙΚΗ ΕΚΤΙΜΗΣΗ: 72% 


Κατασκευαστής: ΟΟΕΑΝ 
Αντιπρόσωπος: ΟΟΕΑΝ HELLAS 


ΠΡΩΤΟΤΥΠΑ ΠΑΙΧΝΙΔΙΑ ΑΠΟ 1 


ΑΓΟΡΑΣΤΕ ΤΑΧΥΔΡΟΜΙΚΩΣ — ΤΑ ΚΑΛΥΤΕΡΑ ΠΑΙΧΝΙΔΙΑ 
ΣΕ ΠΡΩΤΟΤΥΠΕΣ ΔΙΣΚΕΤΤΕΣ 'H ΚΑΣΣΕΤΕΣ 
ΜΕ ΕΛΛΗΝΙΚΕΣ ΟΔΗΓΙΕΣ — ΚΑΙ ΑΠΙΣΤΕΥΤΕΣ ΤΙΜΕΣ! 


ΚΑΤΑΛΟΓΟΣ ΠΑΙΧΝΙΔΙΩΝ 


ГІА AMSTRAD ΟΡΟ 464-664-6128 


Τα παιχνίδια που έχουν μπροστά ένα % δεν έχουν 
έρθει ακόµα στην Ελλάδα από τις εδώ αντιπροσω- 
πείες µπορείτε όµως να τα παραγγείλετε καιθα τα 


Τήλος Κασέτα Δισκέττα λάβετε αµέσως μόλις κυκλοφορήσουν. 

1 ΤΑΙΡΑΝ 1200 - 

2 КЕМЕСАРЕ 1200” - 

3 WIZZBALL 1200 - ¿ А З ç 

4 COMBAT SCOOL 1200 Е Μπορείτε αν θέλετε να δώσετε την παραγγελία σας 

5 MATCH DAY 1 1200 С τηλεφωνικά στο τηλέφωνο 3224664 Δευτέρα- 

6 THUNDERCATS 1500 2100 Παρασκευή Ι10-2μμ. H εξυπηρέτησή σας θα είναι á- 

7 BUGGY BOY 1500 -- μεση. 

8 *GRYZOR 1200 — г I 

9 *PSYCHO SOLDIER 1200 3 Οι ταχυδρομικές επιταγές και τα γράμματά σας πρέ- 

10 6-PACK 1800 2300 πει να στέλνονται στη διεύθυνση: 

11 SOLOMON'S KEY 1300 1650 ΚΑΤΕΡΙΝΑ ΑΝΑΣΤΑΣΟΠΟΥΛΟΥ 

12 TRANTOR 1300 ЙӨ ΑΔΡΙΑΝΟΥ 65 ΠΛΑΚΑ 

13 SURVIVOR 1300 1650 Т.К. 105 56 ΑΘΗΝΑ 

14 NEXUS 1100 1800 τηλ. 3224664 

15 CAPTAIN AMERICA 1300 1650 ЕЩЕ .---.».-.-ᾱ-κι...-... ы 

16 MASTERS ΟΕ ΤΗΕ. 1300 1650 πα 
UNIVERSE II ΚΟΥΠΟΝΙ ΠΑΡΑΓΓΕΛΙΑΣ 

17 GAUNTLET Il 1300 1650 

18 TARZAN 1300 - | Θα ήθελα να µου στείλετε ταχυδρομικά τα nat- 

19 MASK 1300 1850 χνίδια 

20 DEATH WISH П 1300 1850 Моа ο ων σος 

21 ROAD RUNNER 1300 1650 [1 για το σκοπό αυτό στέλνω την таў. επιταγή 

22 STREET BASKETBALL 1300 1650 | Мо.... 

23 КОСАК 1300 1650 г ; 

24 IKARI WARRIORS 1500 2100 με иункетаром. 

25 DEFLECTOR 1300 1650 Ρ ; Е 

96 BOMB JACK II 1500 2100 (Σηµαδέψτε µε X αυτό που προτιμάτε, η αντικατα- 

27 PAPERBOY 1500 2100 | βολή επιβαρύνεται µε 250 δρχ. επιπλέον) 

28 *PAC-LAND 1500 2100 

29 KAT-TRAP 1300 > | Όνομα...................... Επώνυμο...................... 

30 GARY LINEKER 1300 1600. Οδός.............. Αριθµός.............. ТК: 
FOOTBALL | О жиы ЛЕ as ГИСЕН ТЕ 


SIDE WALK 


Το τελευταίο παιχνίδι από tnv Infogrames 
είναι ασυνήδιστο γιατί είναι ασπρόμαυρο. >` 
αυτό το παιχνίδι που μοιάζει µε adventure о 
σκοπός σου είναι να Өргіс τα κομμάτια του 
κλεμμένου ποδηλάτου σου και να πάρεις £101- 
τήρια για ένα κονσέρτο προτού n φίλη σου бүгі 
μαζί σου. Н οδόνη χωρίζεται σε δύο μεγάλα 
μέρη. Στο πάνω μέρος υπάρχει µια εικόνα της 
περιοχής που θρίσκεσαι, µια εικόνα του εαυ- 
τού σου και µια εικόνα αυτού που μιλάς. Στο 
κάτω μέρος σου δείχνει та κομμάτια του побп- 
λάτου που έχεις θρει. τα λεφτά που έχεις και 
το χρόνο. 

Av συναντήσεις κανέναν καθώς τριγυρνάς 
στην πόλη, σου δείχνει З επιλογές: να παλέμεις 
μαζί του, να μιλήσεις ἡ να τρέξεις. Εάν μιλή- 
σεις σ᾿ αυτούς σου δίνει αρκετές ερωτήσεις για 
να τους κάνεις. Με την ερώτηση που да τους 
κάνεις µπορεί να σου δώσουν χρήσιμες πλη- 
ροφορίες, να σε κοροϊδέμουν ἡ να σε δείρουν. 

Μέρη του ποδηλάτου µπορεί να τα έχουν ot 
αναρχικοί της πόλης. Για να τα πάρεις πρέπει 
να παλέμεις μαζίτους. H μάχη γίνεται όπως και 
στα πιο πολλά παιχνίδια µε μάχες. δηλαδή 
μπορείς να διαλέξεις апо ένα µεγάλο αριθµό 
κινήσεων όπως γροδιές, μπουνιές και κουτου- 
λιές. 

Τη στιγµή που γίνεται n μάχη εμφανίζονται 
δύο ποτήρια μπύρας.τα οποία είναι n ενέργεια 
п δική σου кап той ανππάλου. Όποιου τελειώ- 
σει πρώτα η μπύρα χάνει. Ο νικητής παίρνει 
ότι κρατάει ο χαμένος. Μπορείς να ανανεώνεις 
την ενέργειά σου πηγαίνονας στο Bar. 

Στην αρχή του παιχνιδιού έχεις #50), οι ο- 
ποίες αυξάνονται ἡ μειώνονται ανάλογα pE тіс 
πράξεις σου. Πρέπει να έχεις αρκετά χρήματα 
για να αγοράσεις τα εισιτήρια για το κονσέρτο. 
αλλιώς η φίλη σου ϑα δυσαρεστηϑεί. 

Όποια στιγµή Θέλουμε μπορούμε να πάμε 
στον τηλεφωνικό ϑάλαμο και να τηλεφωνήσου- 


= 


µε στη φίλη µας και µετά από λίγο да έχει φτά- 
σει. 

Αν беу έχεις θρει όλα τα κομμάτια που πο- 
δηλάτου. δεν έχεις πάρει τα εισιτήρια καὶ δεν 
έχεις τηλεφωνήσει στη φίλη σου έως τις 7.30 
u.p.. τότε αυτή да бүг: έξω µε тоу John. 

Τα γραφικά είναι ασπρόµαυρα και high 
resolution. H λεπτομέρεια των γραφικών εἶναι 
καλή. ειδικά στα αντικείµενα που παίρνεις апо 
τους άλλους. Οι δρόμοι είναι καλά σχεδιασµέ- 
νοι, αλλά το animation om μάχη δεν είναι πολύ 
καλό. Διαφορετικές μουσικές ακούγονται στο 
παιχνίδι ανάλογα µε το εάν χάνεις ἡ κερδίζεις 


σε µια μάχη ἡ αν τρέχεις να ξεφύγεις απὀ αυ- 
τούς που σε κυνηγάνε. 

Αυτό που κάνει το παιχνίδι να διαφέρει εἴ- 
ναι οἱ πολύ καλές μουσικές και τα πολύ καλά 
γραφικά, παρ᾽ όλο που είναι µονόχρωμα. 


ΓΡΑΦΙΚΑ: 80% 

ΗΧΟΣ: 86% 

ПЛОКН: 75% 
ΔΙΑΡΚΕΙΑ: 65% 

ΟΛΙΚΗ ΕΚΤΙΜΗΣΗ: 77% 


Κατασκευαστής: Infogrames 


ХОН 


То XOR είναι ένα ασυνήδιστο παιχνίδι που 
κοντρολάρεις δύο ασπίδες µέσα σε ένα λαθύ- 
ρινϑο. Οι δύο ασπίδες Questor και Magus é- 
χουν σαν σκοπό να αποκαλύμουν την ταυτότη- 
τα του ХОК. Αυτή да αποκαλυφδεί όταν και 
τα πενήντα επίπεδα συμπληρωθούν. Για να 
δείτε πόσο σατανικό είναι το παιχνίδι δείτε µε: 
ρικούς τίτλους από та levels: «Σατανικός Χέν- 
ро», «Èe κρίσιμη ϑέση», «Н πρόκληση», «Е- 
κρηκτικά μίγματα» και n «Εκδίκηση της κού- 
κλας» είναι µερικοί τίτλοι. 

Όταν φορτώσει το πρόγραµµα εμφανίζεται 
ένας κατάλογος µε 15 levels. Στο κάθε level 
n οϑόνη κάνει scroll προς τις τέσσερις κατευ- 
δύνσεις. Στο κάδε επίπεδο προσπαδείς να μα- 


ζέψεις όλες τις μάσκες που υπάρχουν στο λα- 
θύρινϑο. Ο σκοπός σου σε κάϑε επίπεδο είναι 


90 


να ξεπεράσεις τα διάφορ εμπόδια και puzzles 
και να φτάσεις στο τέλος. 


Τα εµπόδια αυτά µπορεί να είναι: κοτόπου- 
λα. ψάρια, κούκλες, διακόπτες, θόμθες κτλ. 
Ὄλα τα εμπόδια έχουν διαφορετικό τρόπο για 
να τα περάσεις συνδυάζοντας διάφορα περί- 
πλοκα puzzles. 

Τα κοτόπουλα, οἱ κούκλες και τα άρια eí- 
ναι τα κλειδιά όλου του παιχνιδιού γιατί είναι 
αυτά που χρειάζονται να χρησιμοποιήσεις για 
να πραγματοποιήσεις το σκοπό σου. 

Ένα λάδος µπορεί να κάνει το level που 
θρίσκεσαι αδύνατο να συμπληρωϑεί. Οι θόμ- 
θες χρειάζονται για να ανοίγουν τρύπες στους 
τοίχους. 


Οι διακόπτες μοιάζουν πολύ µε τις μάσκες 
γι αυτό προσέξτε µηντα μπερδέημετε. Οι διακό- 
πτες κάνουν тоос τοίχους αόρατους. Για να ká- 
νεις τους τοίχους να φαίνονται πάλι πρέπει να 
θρεις µια μάσκα. 


Υπάρχουν δυο ακόµα αντικείμενα. ο χάρτης 
και µια πόρτα. О χάρτης σου δείχνει πού Bpi- 
σκονται οἱ μάσκες και πού θρίσκεται п πόρτα. 


Н πόρτα είναι η έξοδος για το επόμενο level 
αλλά μπορείς να τη χρησιμοποιήσεις μόνο ó- 
ταν μαζέμεις όλες τις μάσκες. То κάδε level 
πρέπει να συμπληρωδϑεί σε λιγότερο από 2000 


κινήσεις, πράγμα που δεν εἶναι πολύ εύκολο. 
То ХОК είναι ένα περίπλοκο παιχνίδι, που 
σίγουρα δεν ϑα το θαρεδείτε εύκολα. Το µόνο 
μειονέκτημα του παιχνιδιού είναι ο καδόλου 
καλός ήχος και τα όχι τόσο καλά γραφικά. 


ΓΡΑΦΙΚΑ: 55% 

ΗΧΟΣ: 38% 

ΔΙΑΡΚΕΙΑ: 82% 
ΠΛΟΚΗ: 90% 

ΟΛΙΚΗ ΕΚΤΙΜΗΣΗ: 71% 


Κατασκευαστής: Logtron 


Ακόμα ένα platform дате αυτή τη φορά 
από την 05 Gold. H αποστολή σου είναι να 
περάσεις και τα 20 επίπεδα Παίρνοντας το 
κλειδί από την κάδε µια ка! πηγαίνοντας στην 
πόρτα της πίστας. 

Στη διάθεσή σου έχεις διάφορα μαγικά, 
μπορείς να σχηματίζεις τείχη ή να πετάς Qo- 
тес. Στα διάφορα τείχη που φτιάχνεις μπορείς 
να πηδάς πάνωτους. Μερικά τείχη κρύθουν ex- 
πλήξεις. Αυτές οι εκπλήξεις µπορεί να είναι 
θαδμοί, μπάλες φωτιά, «ϑάνατος» καὶ «κατα- 
στροφή». Οι μπάλες φωτιάς χρησιμεύουν στο 
να σκοτώνουν τα τέρατα που υπάρχουν. Τα τέ- 
ρατα που υπάρχουν έχουν τη µορφή δράκων. 
αλλόκοτων µπαλών και περίεργων ζώων. Τα té- 
parta πρέπει να τα αποφεύγεις γιατί εάν σε α- 
κουμπήσουν χάνεις μια ζωή. 

O «ϑάνατος» καὶ n «καταστροφή» προκα- 
Хору το ϑάνατο σε боатёрата θρίσκονται εκεί- 
νη тп στιγµή στην οθόνη. Όταν да πεδάνουν 
ða αφήσουν ἐνὰ αντικείµενο για σένα. Αν είναι 
ερωτηματικό, φάτο γρήγορα γιατί µετά από λί- 
yo да εξαφανιστεί. Το ερωτηματικό да σου ĝo- 
σει από 10.000 έως 1 εκατομμύριο θαϑμούς. 

Νομίζω ότι το παιχνίδι αυτό είναι πολύ κα- 
λό. Έχει καλά γραφικά, ήχο και πλοκή. Σίγου- 
ра δεν да то θαρεδείτε εύκολα. 


ΓΡΑΦΙΚΑ: 8050 

ΗΧΟΣ: 7350 

ΠΛΟΚΗ: 82% 

ΔΙΑΡΚΕΙΑ: 76% 

ΟΛΙΚΗ ΕΚΤΙΜΗΣΗ: 79% 


Κατασκευαστής: US GOLD 
Αντιπροσωπεία: ALL SERVICE SOUND 


UNLOCK THE THRILLS & MYSTERIES OF... 
р Т у. Уе N 


ή 


TRANTOR 


Βρισκόμαστε σε ένα πλανήτη και σκοπός 
μας είναι να θρούµε τον κωδικό ακτινοθολίας 
και έπειτα να πάµε στο χώρο ακτινοθολίας. 

Προτού να φορτώσει το πρόγραµµα опар- 
χουν τρεις οϑόνες. H δεύτερη δείχνει το δια- 
στηµόπλοιο του Trantor уа προσεδαφίζεται 
στον πλανήτη καὶ ο Trantor να πετάγεται έξω 
από αυτό και να μπαίνει µέσα σε µια στοά. Н 
πρώτη και n τρίτη εικόνα είναι ωραίες αλλά vo- 
µίζω ότι είναι χάσιμο χρόνου. 

Το παιχνίδι αρχίζει µετον Trantor να στέκε- 
та! δίπλα στον ανελκυστήρα. Οπλισμένος µε 
ένα φλογοθόλο έχει 90 δευτερόλεπτα για να 
ενεργοποιήσει τον NLK. σταϑμό ασφαλείας. 

То φλογοθόλο то χρησιμοποιείς για να 
σκοτώσεις τους διάφορους εξωγήινους που 
θρίσκεις στο δρόμο σου. 

Υπάρχουν οκτώ όροφοι και σε κάδε έναν 
ένας отадрос̧ ασφαλείας. Σε κάθε σταϑμό a- 
σφαλείας Σε κάδε σταϑμό ασφαλείας υπάρχει 
ένα γράμμα. Καταγράυτετο κάδε γράμμα που 
μετά да μπει σε ша σειρά έτσι ώστε να оҳпра- 
τιστεί μία λέξη σχετική µε το computer. 

Πρέπει να προσέχετετο μεγάλο μπλε τέρας 
στο τέταρτο επίπεδο γιατί ғау σας ακουμπίσει 
πεδαίνετε αμέσως. Βέθαια, το μπλε τέρας Ka- 
δώς και οποιοδήποτε άλλο πλάσμα µπορεί να 
καταστραφεί µε το φλογοθόλο. 

Το φλογοθόλο χρειάζεται καύσιματα οποία 
μπορείς να θρεις σε κάτι µεγάλες φιάλες σε 
κάδε επίπεδο. Για να γεμίσει το φλογοθόλο 
πρέπει να πας μπροστά από τις φιάλες καὶ να 
τραθήξεις το jovstick κάτω. 

Επίσης, υπάρχουν διάφορα ντουλάπια τα о- 
ποία έχουν διαφορετικά αντικείμενα. Αυτά та 
αντικείμενα µπορεί να είναι hamburgers που 
σου ανανεώνουν την ενέργεια, ρολόγια που 
σου ανανεώνουν το χρόνο, ασπίδες και κάρτες 
που σου επιτρέπουν να μπεις στον τελευταίο 
σταϑμό ασφαλείας. 

Μπορείς να πηγαίνεις απὀ το ένα επίπεδο 
στο ἆλλο µετους ανελκυστήρες. Σε κάϑε enine- 
δο υπάρχουν δύο ανελκυστήρες. ένας που σε 
πηγαίνει στον παρακάτω όροφο και ένα που 
σε πηγαίνει στον παραπάνω. 

Μετά που да σχηματίσετε λέξη πρέπει να 
θρείτε то σταϑμό ασφαλείας και να εισάγετε 
τη λέξη. Θα σας δοϑεί τότε ένας κώδικας aktı- 
νοθολίας. Προχωρείστε στο χώρο ακτινοθο- 
Мас, δώστε τον κώδικα και да αρχίσετε να а- 
κτινοθολείτε. έχοντας ολοκληρώσει µε επιτυ- 
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Units 2/3, Holford Way, Holford, Birmingham B6 7AX Tel: 021 356 3388 


χία тпу αποστολή σας. 

Н αρχική μουσική είναι αρκετά καλή Kai ra 
εφέ του παιχνιδιού πολύ καλά. Το animation 
του παιχνιδιού είναι πολύ καλό και γρήγορο. 
ΓΡΑΦΙΚΑ: 85% 

ΗΧΟΣ: 76% 


ΠΛΟΚΗ: 86% 
ΔΙΑΡΚΕΙΑ: 75% 
ΟΛΙΚΗ ΕΚΤΙΜΗΣΗ: 81% 


Κατασκευαστής: GO! 
Αντιπροσωπεία: ALL SERVICE SOUND 


O INDY θρέδηκε απρόσμενα στο апора- 
κρυσμένο χωριό Мауароге στην Ινδία, που κά. 
ποτε προστατευτόταν από την Ἱερή και γεμάτη 
δύναμη πέτρα SANKARA. H κλοπή της πέ- 
трас προκάλεσε καταστροφή και τα παιδιάτου 
χωριού εξαφανίστηκαν. O INDY ανακαλυπτει 
τα παιδιά να είναι σκλαθωμένα στο ΡΑΝΚΟΤ 
PALACE, το παλάτι του κακού. όπου κατοικεί 
ο Μαχαραγιάς. Το παλάτι αυτό είναι Ιερός TÓ- 
πος λατρείς του ТНОССЕЕ, δηλαδή της ϑεό- 
τηταςτου Θανάτου. О MOLAMAR. o окрес 
και κακός YunÀóç Ἱερέας, ανάγκ τα παιδιά 
του χωριού να σκάβουν ота Ορυχεία του THU- 
ССЕЕ για va ανακαλύιουν πολύτιμους λίδους 
καιτις υπόλοιπες χα: ιένες πέτρες SANKARA. 

Η ιστορία διᾳόραμαήζεται κάτω από το na- 
Аат! όπου /5 INDY καταδιώκεται, Χρησιμο- 
ποιεί ΤΟ (αστίγιό του για να αιωρείται ανάμεσα 
στα Φδιέξοδα και για να προστατεύει τον εαυτό 
тоб από τους διάφορους κινδύνους. 

+ О παίκτης παίζει το ρόλο του INDIANA 
JONES στην αναζήτηση και επαναπόκτηση 


1 
$ 


της πέτρας SANKARA. Το πρόγραμμα έχει 
τρία µέρη: Στο πρώτο µέρος ο INDY πρέπει 
να ελευδερώσει τα παιδιά και να δραπετεύσει 
από τους THUGGEES που τον καταδιώκουν 
µέσα στις στοές του ορυχείου. Ένας λαθύριν- — 
дос από στενά περάσματα. σκάλες, φάαπξζ και 
ταινίες μεταφοράς. Σ᾽ αμπό-το πρώτο μέρος 
πρέπει να προσέχουμε και τον Emperor. о o- 


BOOG εµφανίζεται ξαφνικά και µας πετάει prá- 


λες φωτιάς. Τις μπάλες μπορούμε να τις κατα- 
στρέψουμε χτυπώντας αυτές µε το μαστίγιο. 

Το δεύτερο μέρος του προγράµµατος αρχί- 
ζει отау ο INDY φτάνει στην είσοδο του τούνελ. 
Από εκεί και πέρα о INDY οδηγεί ένα θαγόνι 
του ορυχείου προσπαθώντας να δραπετεύσει 
από τους φρουρούς ТНОССЕЕ, αποφεύγον- 
τας παράλληλα και τον εκτροχιασμό. Στην no- 
peia tov о INDY πρέπει να προσέχειτα κομμά- 
па των γραμμών που λείπουν, εκτροχιασμούς. 
γιαγάντιες νυχτερίδες και τον THUGGEE СІ- 
ΑΝΤ. 

Στο επόμενο μέρος του προγράµµατος о 


INDY θρίσκεται στο ναό του DOOM. Екесо 

INDY πρέπει να φτάσει των пётра SANKARA 
που είναι τοποδεσπΠενη μπροστά апо τη δεά 
KALI, τη ϑεᾶ του δανάτου μετα τέσσερα χέρια. 


στ Μόλις επαναποκτηδεί η πέτρα, ο INDY θγαίνει 


στις στοές του ορυχείου. 


H περιπέτεια συνεχίζεται µέχρι ο INDY να 
αποκτήσει τρεις πέτρες. Στη συνέχεια ο INDY 
αντιμετωπίζει τον κίνδυνο να περάσει πάνω 
από µια σχοίνινη γέφυρα. Αν n απόδραση επι- 
τύχει, κερδίζετε µια “BONUS” περιπέτεια. 


ΓΡΑΦΙΚΑ: 75% 

ΗΟΧΣ: 65% 

ΠΛΟΚΗ: 73% 
ΔΙΑΡΚΕΙΑ: 75% 

ΟΛΙΚΗ ΕΚΤΙΜΗΣΗ: 78% 


Κατασκευαστής: US GOLD 
Αντιπρόσωπος: ALL SERVICE SOUND 


GAMES SERVICE C C í 


Кат” αρχήν χρόνια πολλά στους Χρή- 
στους και στους Μανώληδες, και ό- 
που να ΄ναι και στους Βασίληδες. Και 
µπορεί εγώ να µην είμαι ο΄Αι-Βασίλης 
(πώς θα μπορούσα άλλωστε αφού λέ- 
γομαι Μιχάλης), αλλά δώρο θα σας 
κάνω. Για την περίπτωση λοιπόν που 
εκτός από τυχερά παιχνίδια παίξετε 
και µερικά άλλα µε τον υπολογιστή 
σᾶς, Το δώρο роо θα σας φανεί χρήσι- 
но. Βέβαιὰ, "!α να ‘рах ειλικρινής, то 
δώρο αυτό αποτελειτα! από шкрбте- 
ρα «δωράκια» που τα πρόσφεραν οἱ’ 
Χρήστος Αντωνόπουλος, που µας έ- 
στειλε πολλά TIPS, αλλά όταν ήρθε η 
σειράτου yta va δηµοσιευθείτο үран- 
µατου, µερικά από αυτά είχαν ήδη δη- 
μοσιευθεί. Τα υπόλοιπα τα βλέπετε 
παρακάτω. Τον ευχαριστούμε. 


10 REN HAUNTED HEDGES 

20 MEMORY &7B76:LOAD"hedges" 
ІРКЕ 33491,0 

30 CALL 47874 


10 REM PYJAMARAMA 
20 MEMORY &10С7:.0А0"рујавагава" 
:РОКЕ 12030,0: °1п?, liv 


85 
30 CALL ἐ1007 


Γιώργος Σταματίου και Φώτης Σού- 
κας, που συνεργάστηκαν για να ανα- 
κουφίσουν τους χρήστες κασέτας οι 
οποίοι είναι πράγματι παραµελημµέ- 
νοι. Τι να κάνω όµως κι εγώ, ας στεί- 
λουν ΤΙΡΘ για να τα δημοσιεύσω. 


10 REM ANDROID 2 

20 CLS:BORDER 1, 24: МОЕ 1:PRINT"GEORGE 
AND FOTIS - ANDR 

0102 LOADING" 

30 OPENDUT "0": МЕМОКҮ &500 

40 LDAD"and2ac",kA8C 

50 POKE 83070,9 

60 CALL &ABC 


10 REN MANIC MINER - AMSOFT 

20 CLS:BORDER 1,24:MODE 1:PAPER 1:PEN 4 
:LOCATE 2,11:PRINT" "LOCATE 2,12 
tPRINT" MANIC MINER POKE BY GEORGE 
AND FOTIS ":LOCATE 2 ,13:PRINT" 


30 OPENOUT "0": МЕМПКҮ 4079 
40 LOAD"M-MINER" 

50 POKE &20А9,0:'іп+#. lives 
80 POKE %3777,201:71п4. air 
70 CALL 4080 


To POKE για to MANIC MINER εί- 
ναι για την έκδοση της ΑΜΘΟΕΤ. ΄Ο- 
µως τα παιδιά έστειλαν και ορισμένα 
TIPS που δουλεύουν ανεξάρτητα ап” 
το αν χρησιµοποιείτε δίσκο ή κασέτα. 

INTO ΤΗΕ EAGLE'S NEST: Αντί για 
όνομα στο ΗΙ-- SCORE, βάλτε DAS 
ΟΒΙ- για ατέλειωτη υγεία (τύφλα να 
χει το Ε.ΣΎ"). ~ 

AUF WIEDERSEHEN MONTY: Mpo- 


σθέστε στον LOADER το POKE 800. 


201 και γίνετε αόρατοι. 

SHORT CIRCUIT: Πιέζοντας ταυτό- 
χρονα τα πλήκτρα ΟΟΕΑΝ περνάτε 
στο δεύτερο στάδιο. 

Γιώργο και Φώτη, σας ευχαριστού- 
не και περιμένουμε νέα σας. 

Βαγγέλης Βαξεβανάκης, που έ- 
στειλε για το SABOTEUR ΙΙ το παρα- 
κάτω, δίνοντας έτσι άπειρη ενέργεια 
και χρόνο για την έκδοση δίσκου. 


10 НЕМ Saboteur II 

20 ОРЕМОШТ "d" 

30 МОЕ 1 

40 MEMORY k3FF:LOAD"screen",k400 

50 ІМК 3,0:INK 2,20:INK 1,b:BORDER 0 


80 LOCATE 9,10:PRINT"Press 6 for green 
screen" 


70 LOCATE 15,12:PRINT"Press С for colour" 


80 a$=INKEY$:IF a$="" THEN 6070 80 
90 a=ASC(a$) DR 32 
:IF a=103 THEN аз! ELSE а=0 


100 CALL &400 
10 ον, 10 2000:1Ғ INKEY$="" ΤΗΕΝ 


120 INK 0,01 1ΝΚ 1,0 ІМК 2,0:INK 3,0 
130 NODE 1 

140 LOAD"ninja",&C000 

150 LOAD"code",%400 

160 POKE 40000,а+2 

170 POKE 38340,201:POKE 13300,0 
180 CALL $400 


Ευχαριστούμετον Βαγγέλη ποι εί- 
χε στείλει και έναν χάρτη για το ίδιο 
παιχνίδι -- ήταν ο καλύτερος από 
τους περίφημους χάρτες (κοίτα πα- 
λιότερο τεύχος) κι ας σημειωθεί, ήταν 
ο πρώτος. Δυστυχώς, η έλλειψη χώ- 
ρου καὶ η γνωστή ιστορία, µας εµπόδι- 


| Е.П.Т.А. 
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сау уа τον δημοσιεύσουμε. Και μι- 
λώντας για σαμποτέρ... 


ТЕЕ ЅАВОТ1.РОК............ 


10 MODE 1 

20 INK 0,0 

30 INK 1,1 

40 INK 2, 

50 INK 3,24 

80 BORDER 1 

70 MEMORY 5000 

80 LOAD "!1",49152 
90 LOAD "!2",25200 
100 LOAD *!3*,5000 
110 LOAD "!4" 16419 
120 LOAD "!5", 23296 
130 BORDER 0 
10100) "16", 49152 
145 POKE 25210,0:REM infinite lives 
150 CALL 234317. 


Το σπάσιμο προσφέρει о φίλος 
Γιώργος Βίλλας, που ἐχεῖ-κι άλλα να 
πει πάνω στο ζήτημα του ΗΑΟΚΙΝΑ: 


ων EXOLON.POK ........ νο: 


10 REM exolon 

20 МОДЕ 111ΝΚ 0,0:BORDER 0 

20 ОРЕМОЦТ" а": MEMORY &3FF:CLOSEDUT 
:LOAD"EXOLONI. bin":CA 

LL &4000 

40 LOAD'EXOLON2,bin' 

80 POKE 1115, LIVES 

80 CALL &7240 


10 REM solomons 

20 CLS: INPUT"NUNBER OF LIVES 
t" LIVES 

30 MODE 111ΝΚ 0,0:BORDER 0 

40 ОРЕМОЦТ" 0": MEMORY &1000:CLOSEDUT 
LOAD"! SOLOMONS, 001" 

CALL 000 

50 LOAD" ' SOLOMONS. 002", κ1040 

80 POKE 5984, LIVES 

70 FOR N=&A000 TO &AOLO:READ A$ 
:РОКЕ N, VAL("&"+A$): NEXT 


(1-100) 


80 MODE O:FOR N=0 TO 15:READ A$ 
LINK N, VAL("&"+A$): NEXT: 

BORDER O:PAPER 15:CALL 13000 

90 DATA F3,21,40,10,11,40,00,01,00, 
90, Εὐ, BO,C3,00,8F,00 „00,00,00 

100 DATA 19,1A,0C,18,09,12,0A,14,10, 
02,0Е,01,00,03,06,00,00,00 


ΟΙΤΗ 

20) # 

9214 INDIANA JONES 

MER by 

50’ Ф VILLAS GEORGE 

4 

ШИТТІ ІТ ТІГТІЛІГІТПІЛІЛІГІГІН 

80 ' 

% CLS:INPUT" NUMBER OF LIVES (0-255);;;",LIVES 

100 

110 MODE 111ΝΚ 0,0:BORDER 0 

120 MEMORY &16FF:LOAD"! INDIANAJ. 001", 05000: САЦ. 44000 

130 LOAD"! INDIANAJ. 002",%1700 

140’ 

150 РОКЕ 37190,LIVES 

180 FOR N=440 TO &50:READ АФ: РОКЕ Ν, ΝΑΙ ("а" +45) ΝΕΤ 
1ΡΩΚΕ 41777,03: РОКЕ 14778,4 

74:РОКЕ 41779,41: САЦ. 0 

170 DATA Ғ3,21,00,17,11,00,01,01,20,01,60,80,63,00,01,00, 
60,00,00 


к эв "ο < Әс Ó 


ПО ᾿ΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗ͂ 


20 ἃ t 
9% МІЕНІ-2 t 
0 by ! 
50% VILLAS GEORGE % 
60 "αὶ ! 

% 


70 ЭННИИНИНИНИИНИНИИИНИИНИНИНИНННННН 
Β0 ’ 


90 CLS:INPUT"NUNBER OF LIVES (1-255) ; ",LIVES 
100” 

110 МОЈЕ 111ΝΚ 0, 0:BORDER 0 

120 OPENDUT"d":MEMORY 299: CLOSEOUT 

150 LOAD'!AIRNOLF2.001":CALL 14000 

140 LOAD"!AIRNOLF2,002' 


50’. 
160 РОКЕ 33323.LIVES 
170 ' 
180 CALL 26192 

тл Мел ВООТҮ.РОК............. 
1O ΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΡΗΗΗΗΗΗΗ 
9% ' 
30 ἡ BOOTY ' 
юч by ' 
50 "ἡ VILLAS GEORGE А 
ыз ' 
TO Wititi 


8%” 
90 CLS:INPUT"NUMBER ΠΕ LIVES 
100 ) 


(1-255) ;;",LIVES 


== = === == = μμ 


Επιµέβεια: M. Ππαγανόπουβος 


L Г.С  υ ουσ.  .υ-υ-ἳᾶυὓ. -υ 


110 MEMORY 81900 

120 LOAD"BOOTY, BIN" 
150” 

140 POKE 15408,1 1УЕ5 
150” 

150 CALL 4015 


1O HW 


20 ἃ ' 
97% LIVINGSTONES ' 
40 ἡ by t 
50 '# VILLAS БЕОАВЕ ' 
Т t 
70 ᾿ΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΒῊ 


80 7 

90 CLS:INPUT"NUMBER OF LIVES (1-255) ;;", LIVES 
91? 

100 МОЈЕ 0 

110 FOR х=4300 TO 8300936: READ a:PDKE х, а:МЕХТ 

120 DATA 2351550 0, 192,17, 0, 128, 1 0, 64, 237, 176, 121, 28, 
04,036, 60, 023, 126, 4, 121, 
0,4с0,856,40,0,М1,1,4с0,М, ІЗ, кей, 0, 195,0,4 
150 OPENOUT "t" 

140 MEMORY &2FF 

150 CLDSEDUT 

160 LOAD "living" 

161 

162 POKE 13725,11УЕ5 

18” 

170 CALL 10490 

180 LOAD "1іуіпді", 49152 

190 CALL 8500 


σον. ВАТТҮ.РОК............. 
10 ᾿ΗΗΗΗΗΗΗΗΦΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗ 


20 ἡ ' 
9% BATTY ' 
40 4 by ' 
50 ἡ VILLAS GEORGIOS ' 
0 + ' 
70 ᾿ΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗΗ 


80” 

90 (16: ІНРІЛ"МИМВЕВ OF LIVES (1-255)" LIVES 

100” 

110 МОЈЕ 111ΝΚ 0,0:BDRDER 0 

120 MEMORY &1300:LOAD" !ΒΑΤΤΥ, 091", 14000: САМ 4000 
150 LOAD" :ΒΑΤΤΥ, 002", 40001 ΓΑΙ, 14000 

140 LOAD"! BATTY. 003", {4268 

150 ) 

160 РОКЕ 17195,LIVES 

170 ) 

180 CALL &4268 

Πολύ δυνατά επιχειρήματα, δεν νομίζετε; Εγώ πάντως 
απαντώ µόνο: POKER του ΜΗΝΑ! Καλή χρονιά! 


Το πρώτο ανοικτό δίκτυο υπολογιστών στην Ελλάδα 


ON LINE 


σολωμου 16 ΑΘΗΝΑ 10683 
ΤΏΛ:(Φωνη) 36 42 ПО 
(data): 3642111,...2,...3. 


Н συνδρομή για την ENTA BASE είναι 800 δρχ. το μή- 
να και ο χρήστης έχει δικαίωµα χρήσης της 30 λεπτά 
συνολικά την ημέρα. 
Για περισσότερες πληροφορίες και για επίδειξη του 
συστήµατος της ΕΠΤΑ BASE: 

Μπόταση 9 бос όροφος 5-7 μ.μ. Τρίτη, Παρασκευή 


ΑΡΓΩΣ 


1Η 


HA 


Στο δίκτυο υπολογιστών ΑΡΓΩΣ да θρείτε: 
ο Νέα-Ειδήσεις 
““Ардра 
9 Προγράμμτα για να та πάρετε δωρεάν 
ο Ταχυδρομείο µε μηνύματα άλλων χρηστών για όλους ή ιδιωτικά 
ο Ανοικτές συζητήσεις στις οποίες μπορούν να λάθουν µέρος όλοι 


Επιπλέον στο ειδικό τµήµα ЕПТА BASE του δικτύου µπορείτε 
εκτὸς απὀ τα παραπάνω να έχετε: 
° Ειδήσεις γύρω από την Amstrad καὶ την ελληνική αγορά πληροφορικής 
ο Όλα τα προγράµµατα των τευχών του ΕΠΤΑ 


ο Συζητήσεις γύρω από τα δικά µας дёната 

(απορίες, προτάσεις, ιδέες, πληροφορίες κ.λπ.) 

ο Οδηγούς αγοράς και έκτακτες προσφορές 

e και αργότερα κάποιο παιχνίδι για πολλούς παίχτες! 


ΠΛΗΡΟΦΟΡΙΚΗΣ Ë ў 2 | 


тн 


SEEFAAONIKEE JEE s ss sss micro sytem ЈА. 


ЖЕТТТ 


Dp ВИИ s 


ж µηχανηµατα ж періферғака 


Ολα та ὅημοφιλη PRINTERS FL OTTERS 
HOME -BUSINESS-PERSONAL HARD DISCS MONITORS 


COMPUTERS MOSE LIGHT PENS 


КО! ΑΡΙΘΜΟΜΗΧΑΝΕΣ JOYSTICKS MODEMS кап 
TEXAS INSTRUMENTS 


DEYN 25/74) 


Ж проүраџџата | А αναλωσιµα 


САМЕ5 
ΔΙΣΚΕΤΕΣ- ΜΕΛΑΝΟΤΑΙΝΙΕΣ 
ΧΑΡΤΙ - ΔΙΣΚΕΤΟΘΗΚΕΣ ΕΚΠΑΙΔΕΥΤΙΚΑ 
ΒΑΣΕΙΣ ΕΚΤΥΠΩΤΩΝ ΕΜΠΟΡΙΚΑ 
ΚΑΛΥΜΜΑΤΑ Η)Υ ΕΠΑΓΓΕΛΜΑΤΙΚΑ 


ΜΠΑΤΑΡΙΕΣ - ΦΟΡΤΙΣΤΕΣ ΓΛΩΣΣΕΣ 


ШЕШ ο ο. L a 
(031) - TELEX: 412842 CMST GR 


KAI ΤΩΡΑ; 


ΑΓΟΡΑΣΑΤΕ.... 


ΕΝΑ ΙΒΜ ή ΕΝΑ AMSTRAD 1512 ἡ ΚΑΠΟΙΟ 
ΙΒΜ СОМРАТІВІЕ 


Και τωρα θελετε φυσικα να το αξιοποιησετε. Δηλαδη χρειαζεστε software (προ- 
γραμματα) και υποστηριξη. Μπορειτε να παρετε τους ὄρομους, п να ρωτησετε 
καποιον φιλο "που ξερει" ή уа ερθετε και να δειτε συγκεντρωµενα στον ιδιο 
χωρο (απεναντι апо то Πολυτεχνειο) τα καλυτερα προγραμματα της Ελληνικης 
και της διεθνους αγορας, προγραμματα για καθε απαιτηση: 


ΕΑΞΜΑ-2, ҒІММАМ, MUST, ΟΡΙΖΟΝΤΕΣ - 
RETAILER, MIRAGE, MPAZEIŁZ PLUS 


Επεξεργασια κειµενου: Wordstar, Gem- 
write, ABC write, Volkswriter Deluxe. 

Data bases: dBase ΙΙΙ Plus, Reflex, ABC File 
Spreadsheets: Lotus 1-2-3, Supercalc 3, ABC 
Calc 

Integrated: Framework ΙΙ, Psion PC-Four 

Gem: Gem Write, Gem Draw, Gem Graph, Gem 
World Chart 

Utilities: Sidekick, Norton Utilities, Fontasy, Eu- 
reka. 

Γλωσσες προγγραμμµατισµου: Turbo Pas- 
cal, Turbo Basic, Zorland C, Quick Basic, Z Basic. 
Σχεδιαση: AutoCAD, Generic CADD, Gem Draw. 
Δικτυα υπολογιστων: Novell Netware 
Εµπορικες εφαρµογες: Computer Logic, 
Singular, Unisoft, Civildata, Compudata, Sofragem, 
Тесһпоѕой. 


Λιανικη, Μισθοδοσια, Εταιριες ετοι- 
μων ενδυµατων: Computer Logic, Singular, 
Unisoft 

Γιατροι, φαρμακεία, συνεργεια AUTO- 
κινητων: Civildata. 

Στατικα, Τοπογραφικα, Μηχανολογι- 
ка: Civildata, Тһе 3а, Logiciel 

Video clubs: Computer Logic, Unisoft, Civildata, 
Compudata, Technosoft. 

Δημοσια εργα: Computer Logic, K+L, Logiciel, 
Singular. 

Εκτυπωτες: Star, Citizen, Epson, Olivetti, Oki, 
Seikosha. 

Εκτυπωτες Laser: Hewlett Packard. 
Plotters: Hewllet Packard, Houston Instruments. 
Hard Disks: Miniscribe, Seagate. 

UPS, отаӨ&ропо{т|тєС: Imunelec, Cetronics 


Τηλεφωνηστε µας: 


e@No σας στειλουµε τα ειδικα ενηµερωτικα £- 
ντυπα, µε αναλυτικες περιγραφες των προ- 
γραµµατων και πληρεις τιµοκαταλογους 


Φκλειστε καποιο ραντεβου για µια οργανω- 
pevn παρουσιαση της εφαρµογης που σας 
ενδιαφερει, ή... 


ϑγια να αποκτήσετε οποιδηποτε προγραμμα 
χωρις να µετακινηθειτε απο то γραφειο 
σας. 


Μια πλειαδα συνεργατων ειναι σε θεση να a- 
ναλυσει τις αναγκες σας και να προτεινει KA- 
λυτερες λυσεις: ΜΙΑ ΣΕΙΡΑ ΑΠΟ ΛΥΣΕΙΣ 


ΣΤΟΥΡΝΑΡΑ 49Α ἃ ΠΑΤΗΣΙΩΝ 10682 ΑΘΗΝΑ 
ΤΗΛ: 3604759, 3618677 


Μια ανεπαναληπτη ιδεα που υλοποιηθηκε µε 
πολυ µερακι και φυσικα προσφερει µοναδικη 


εξυπηρετηση. 


I ; í 
_ 6... 2 pesa ε-} 


